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GP50A E GP50S 


le piccole stampanti per 
tutti i computer 
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Piccole e com¬ 
patte dalle pre¬ 
stazioni grandi e 
generose, le 
GP50A e GP50S 
sono realizzate 
con standard pro¬ 
fessionali a misura 
di Personal e Home 
computer e si impongono quale soluzio 
ne ottimale per gli usi hobbystici più di 



sparati a 
costi in¬ 
credibil¬ 
mente 
sorpren¬ 
denti. 
"Particolare 
attenzione meritala 
GP50S, stampante direttamente inter¬ 
facciata verso i computer Sinclair ZX81 e 
Spectrum. 


Caratteristiche: 

• Stampante ad impatto a matrice di punti 
da 46 colonne (32 colonne versione 
GP50S) 

• Matrice di stampa 5x8 (7x7 versione 
GP50S) 

• Percorso di stampa monodirezionale (da 
sinistra a destra) 

• Capacità grafiche con indirizzamento del 
singolo dot 

• Possibilità di ripetizione automatica di un 
carattere grafico 

• Velocità 40 caratteri/secondo (35 caratteri/ 
secondo versione GP50S) 


• Caratterizzazione: 12 cpi e relativo espanso 

• Interfacce: parallela Centronics (interfaccia 
Sinclair versione GP50S) 

• Alimentazione carta a frizione (largh. carta 
fino a 5”) 

• Stampa 1 originale e 1 copia 

• Set di 96 caratteri ASCII 

• Consumo 11W (standby) o 17W (stampa) 

• Livello di rumore inferiore a 60 dB 

• Durata di vita testa: 30 milioni di caratteri 

• Peso 1,5 KG 

• Dimensioni: 215 (prof.) x 250 (largh.) x 85 
(alt.) mm. 

• Nastro nero (standard); optionals: rosso, 
arancio, verde, blu, viola e marrone. 
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CONVIENE ABBONARSI .... 
.... ALLE RIVISTE JACKSON 

Uno sconto sicuro per chi sottoscrive un abbonamento 


Riviste 

Uscite 

Importo globale 

Costo abbonamento 

Costo abbonamento estero 

Personal Software 

11 

L. 44tfOO 

L. 34.000 

L. 51.000 

Bit 

11 

SshOOO 

L. 43.000 

L. 64.500 

Informatica Oggi 

11 

L. 38t5uU 

L. 31.000 

L. 46.500 

Elektor 

12 

L. 3&.QQ& 

L. 29.000 

L. 43.500 

Automazione Oggi 

11 

L. 38,500— 

L. 30.500 

L. 45.250 

Elettronica Oggi 

11 

U 44:000 

L. 36.000 

L. 54.000 

L’Elettronica 

22 


L. 44.000 

L. 66.000 

Telecomunicazioni Oggi 

10 

U35vOuO 

L. 28.000 

L. 42.000 

Video Giochi 

11 

L 3o.50U 

L. 30.000 

L. 45.000 

Strumenti Musicali 

10 

U3W)uU 

L. 24.000 

L. 36.000 

Home Computer 

11 

L. 38.500 

L. 31.000 

L. 46.000 


Un supersconto a chi si abbona a due o più riviste 

Tutti coloro che sottoscrivono l'abbonamento a due o più 
riviste godono di un prezzo ulteriormente agevolato, come 
appare nella seguente tabellina. 

Esempio: Bit + Informatica Oggi 

(Italia) L. 43.000 + L. 31.000 - L. 74.000 meno L. 2.000 = L. 72.000! 

(Estero) L. 64.500 +■ L. 46.500 = 111.000 meno L. 2.000 = L. 109.000 


Abbonamento a 2 riviste: L. 2.000 in meno sulla somma dei 2 prezzi d'abbonamento 

Abbonamento a 3 riviste: L. 4.000 in meno sulla somma dei 3 prezzi d'abbonamento 

Abbonamento a 4 riviste: L. 7.000 in meno sulla somma dei 4 prezzi d'abbonamento 

Abbonamento a 5 riviste: L. 10.000 in meno sulla somma dei 5 prezzi d'abbonamento 

Abbonamento a 6 riviste: L. 13.000 in meno sulla somma dei 6 prezzi d'abbonamento 

Abbonamento a 7 riviste: L. 16.000 in meno sulla somma dei 7 prezzi d'abbonamento 

Abbonamento a 8 riviste: L. 20.000 in meno sulla somma degli 8 prezzi d’abbonamento 
Abbonamento a 9 riviste: L. 25.000 in meno sulla somma dei 9 prezzi d'abbonamento 
Abbonamento a 10 riviste: L. 30.000 in meno sulla somma dei 10 prezzi d'abbonamento 
Abbonamento all riviste: L. 35.000 in meno sulla somma degli 11 prezzi d'abbonamento 


Per abbonarsi 

Per sottoscrivere abbonamenti utilizzate il modulo di c.c.p. n. 11666203 intestato a Gruppo Editoriale Jackson - 
Via Rose Mini, 12 - Milano, oppure inviate un assegno o un vaglia postale al nostro ufficio abbonamenti. 
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Le domande imbarazzanti 

di Riccardo Paolillo 

Ogni volta che mi capita di parlare di personal 
computer con conoscenti alle prime armi o compieta- 
mente al di fuori dal mondo della microinformatica, 
so già che prima o poi mi arriverà, inesorabile, una 
domanda diretta e precisa che, lo confesso, mi mette 
regolarmente in crisi: “Ma, in definitiva, cosa si può 
fare con un personal computer?”. 

In questi casi balbetto qualche risposta, parlando di 
semplici e spesso improbabili mini-applicazioni, in¬ 
ventate sul momento, cercando di utilizzare un lin¬ 
guaggio il più piano possibile. 

Il risultato inevitabile che ottengo e che leggo negli 
occhi dei miei interlocutori è sempre sconfortante: i 
dubbi sono rimasti, quelle che a me sembrano proble¬ 
matiche molto importanti per altri sono del tutto 
irrilevanti. 

Morale: non si può pretendere di spiegare, in pochi 
minuti e solo a parole, l’uso e le possibilità di impiego 
di uno strumento potente e per molti ancora scono¬ 
sciuto, quale è il personal computer. Per conoscere ed 
apprezzare il calcolatore occorre toccarlo con mano, 
usarlo, anche se inizialmente questo può costare 
qualche notte insonne e parecchie maledizioni lancia¬ 
te alla macchina. 

Secondo me il difetto di molti di noi computer¬ 
maniaci, appassionati di personal e di programma¬ 
zione, è quello di pensare di poter trasmettere in 
modo automatico e veloce il nostro entusiasmo a 


chiunque ci faccia qualche innocente domanda sulla 
microinformatica. In realtà, in questo campo, il con¬ 
tagio può essere aiutato, ma alla base deve esistere un 
reale interesse da parte di chi si vuole introdurre al 
mondo dei personal. 

Infatti non tutti sono ugualmente sensibili davanti a 
quelle che a noi sembrano delle prestazioni eccezio¬ 
nali dei nostri calcolatori personali: a chi, mostrando 
con orgoglio il proprio sofisticato programma grafi¬ 
co, non è capitato di sentirsi dire che sì, è bello, ma le 
rette sono in realtà delle spezzate e i cerchi non sono 
poi così rotondi? 

Oppure, dopo aver fatto ascoltare la routine sonora 
costata tanta fatica, suscitare commenti del tipo: “Il 
suono è troppo gracchiante, qualunque organino a 
buon mercato può fare di meglio”. 

D’altra parte il mondo è bello nella sua varietà: non si 
può certo pretendere che tutti apprezzino e capiscano 
i personal computer. 

Ma per tutti gli altri, per quelli che invece si interes¬ 
sano a questo nuovo fenomeno? Mi rendo conto che 
ancora una volta sto cercando di schivare la doman¬ 
da iniziale sulle possibilità di utilizzo. Potrei rispon¬ 
dere, restando in questo tipo di logica necessariamen¬ 
te utilitaristica, elencando i più comuni campi di 
impiego: musicale, grafico, memorizzazione dati per¬ 
sonali, scrittura di testi, videogiochi, ecc.. 

Sono tutte possibilità serie e molto interessanti, ep¬ 
pure preferisco dire: provatelo, magari senza decide¬ 
re a priori cosa farne. Scopritelo poco alla volta e 
vedrete che entro pochissimo tempo troverete da soli 
tantissime possibilità di impiego utili o anche, perché 
no, solamente divertenti. ■ 



































Varie Spectrum 


Sono uno studente possessore di 
uno Spectrum 48 Kbyte. 

Mi sono abbonato a Personal Soft¬ 
ware per l’alta qualità dei suoi arti¬ 
coli, riguardanti i personal in gene¬ 
rale, ma soprattutto, naturalmente, 
per quelli targati Spectrum. 

Mi rivolgo a voi per alcune doman¬ 
de, probabilmente banali, ma sono 
un dilettante. 

1) Le periferiche da collegare allo 
Spectrum, vanno poste sotto tensio¬ 
ne dopo l’accensione dello Spec¬ 
trum. 

E il televisore? (ho messo un inter¬ 
ruttore che li accende contempora¬ 
neamente. Ho fatto male?). 

2) Digitando PRINT PEEK 23732 + 
256 ★ PEEK 23733 ottengo 65535. 
Mi hanno detto che dovrei ottenere 
65536. Come mai? Aggiungo che il 
mio Spectrum, anche se acquistato il 
23/12/83, è della produzione 1982. 

3) Quando carico un programma i 
beep sono molto alti come volume. 
Ho notato che altri Spectrum sono 
più silenziosi. D’altra parte, se ab¬ 
basso il volume del tape lo Spectrum 
mi dà errore. È normale? 

4) Potreste pubblicare per intero il 
mio indirizzo perché in questa zona 
non riesco a trovare altri Spectro- 
mani. 

Alessandro Paroli 
Via 2 Giugno, 2 
57020 La California (LI) 


È assolutamente irrilevante l'ordi¬ 
ne con cui vengono messi sotto tensio¬ 
ne televisore, Spectrum e registratore 
a cassetta. La sua soluzione va sen¬ 
z’altro bene, se ha avuto l'accortezza 
di sistemare /’interruttore in modo da 
escludere, in posizione off, l’alimen¬ 
tatore dello Spectrum, per non surri¬ 
scaldarlo inutilmente. 

Le locazioni 23732 e 23733 contengo¬ 
no l’indirizzo dell’ultimo byte di RAM 
fisica. I byte indirizzabi/i dal micro- 
processore Z80 sono 2 t 16 = 65336, 
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numerati da 0 (anziché I come ci ver¬ 
rebbe spontaneo pensare) fino a 
65535. Ecco quindi spiegato il piccolo 
mistero de! byte mancante. 

La terza domanda ci sembra un po’ 
strana: probabilmente il registratore 
che usa è differente da quello adope¬ 
rato con altri Spectrum. 

Infine, siamo lieti di pubblicare il suo 
indirizzo completo anche se. ci scusi 
la facile ironia, stupisce una simile 
richiesta proprio dalla California ... 


Abukir per C 64 

In riferimento al listato del pro¬ 
gramma “Abukir 1798”, pubblicato 
sul n. 16 della vostra rivista, vi fac¬ 
ciamo notare che il suddetto listato 
digitato sul Commodore 64 fino alla 
linea 2043 provoca degli errori 
(?SYNTAX ERROR) nelle linee da 
85 a 185 corrispondenti ai “DA¬ 
TA”. 

Desidereremmo quindi avere, se 
possibile, alcune spiegazioni in me¬ 
rito affinché il programma possa gi¬ 
rare senza errori. 


Gianni Lucatorto 
Marco De Benedetto 
Bari 


Il fatto che il programma Abukir 
1798 non funzioni su C 64 è perfetta¬ 
mente comprensibile, dato che è stato 
scritto per i PET/CBM vecchie serie. 
Visto il notevolissimo interesse mo¬ 
strato da parecchi utenti di C 64, ab¬ 
biamo chiesto all’autore del gioco, 
Umberto Barzaghi, di preparare una 
versione anche per questa macchina. 
Umberto, nonostante i numerosi im¬ 
pegni, si è messo all'opera e quindi 
prevediamo di pubblicare il listato in 
tempi brevissimi. 

Lo stesso procedimento, cioè la tra¬ 
duzione per C 64, verrà effettuato 


quanto prima anche per il successivo 
gioco dello stesso autore, “La batta¬ 
glia de! lago ghiacciato", pubblicato 
nei numeri 17 e 18. 

A lutti i sessantaquattrisli impazien¬ 
ti, che presto saranno soddisfatti, ri¬ 
cordiamo che ci sono anche i posses¬ 
sori dei vecchi PET/CBM da accon¬ 
tentare. 


Qualche critica (e richieste) 

Sono un lettore della vostra rivi¬ 
sta e vorrei esporvi alcune lamente¬ 
le. 

Vi anticipo che lo scopo di questa 
mia lettera ha esclusivamente fini 
costruttivi e vi prego di non voler 
intendere alcuni passaggi come esa¬ 
geratamente polemici. 

Fin dal primo numero ho trovato 
difficoltà a reperire i numeri della 
vostra rivista e, nonostante chieda 
in continuazione a vari giornalai no¬ 
tizie sull’eventuale uscita, ho già 
perso due numeri della vostra rivista 
(numeri 1 e 15). 

Il numero di riviste che voi distribui¬ 
te è talmente irrisorio che sono molti 
coloro che restano a bocca asciutta. 
A questo punto potreste risponder¬ 
mi che l’unico modo di ovviare a 
questo problema è di abbonarmi al¬ 
la vostra rivista e di richiedere i nu¬ 
meri arretrati pagando il doppio del 
prezzo di copertina. 

Ma io ritengo che questa vostra ipo¬ 
tetica risposta sia un’imposizione 
nei riguardi degli acquirenti di rivi¬ 
ste di informatica. 

Con l’abbonamento si viene a per¬ 
dere la possibilità di poter scegliere 
quale rivista più interessa, costrin¬ 
gendo noi lettori a comprare a sca¬ 
tola chiusa. 

D’altro canto non sono disposto a 
pagare a mie spese quella che io ri¬ 
tengo una vostra manchevolezza; mi 
sembra quindi ingiusto chiedere di 








pagarvi 7.000 lire per un arretrato 
perso per colpa vostra. 

Passo ora alla seconda parte delle 
mie critiche. 

Inizialmente la vostra rivista pro¬ 
metteva molto, illustrando metodo¬ 
logie di programmazione e pro¬ 
grammi illustrati, senza far riferi¬ 
mento a specifici calcolatori. 

Negli ultimi numeri va sempre più 
affermandosi, purtroppo, la tenden¬ 
za a riportare programmi già svilup¬ 
pati per i computer più diffusi, 
lo posseggo un home computer 
(Newbrain A) poco diffuso sul mer¬ 
cato e non posso usufruire dei pro¬ 
grammi da voi pubblicati. 

Io penso che i veri appassionati del¬ 
l’arte di programmare, non i fanatici 
dei video games e programmi pronti 
per l’uso, gradiscano aggiornarsi 
sulle metodologie di programma¬ 
zione, che sono molto più interes¬ 
santi (ve lo dico per esperienza es¬ 
sendo iscritto al V anno di ing. elet¬ 
tronica) di un semplice programmi¬ 
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no pronto per l’uso. Spero quindi in 
un vostro ritorno alle origini. 

(Lettera firmata) 
L'autore di questa lettera ci ha 
chiesto, chissà perché, una risposta 
privata. 

Noi ne rispettiamo l’anonimato, ma 
preferiamo rispondere sulla rivista 
perché riteniamo questi discorsi di in¬ 
teresse generale. , 

Il problema della distribuzione capil¬ 
lare di una rivista come Personal 
Software su tutto il territorio nazio¬ 
nale non è ovviamente semplicissimo. 
Nei mesi scorsi il distributore nazio¬ 
nale, che non è il Gruppo Jackson, ha 
incontrato parecchi problemi, in 
quanto la richiesta della rivista è an¬ 
data aumentando ogni numero. Noi 
abbiamo costantemente aumentato la 
tiratura e crediamo che ora il proble¬ 
ma sia in gran parte risolto. 

Le assicuriamo che non abbiamo mai 
pensato di creare ad hoc queste situa¬ 
zioni per incrementare gli abbona¬ 
menti o vendere gli arretrati. Infattii! 


problema è solo tecnico: la mancanza 
di copie della rivista in determinate 
zone può essere rilevata dal distribu¬ 
tore solo il mese successivo. 

Per quanto riguarda la seconda parte 
della lettera, riprendiamo un discorso 
già fatto più volte, ma che trattiamo 
sempre volentieri, in quanto ci per¬ 
mette di conoscere sempre di più le 
esigenze e le preferenze dei lettori. 
Dato per scontato che il partito degli 
appassionati a programmi di “consu¬ 
mo” (videogame e affini) è sempre 
forte e compatto, gradiremmo cono¬ 
scere anche le opinioni dei lettori che 
preferiscono articoli di altro tipo. 

Ci piacerebbe ricevere proposte con¬ 
crete e sulla base delle richieste per¬ 
venute cercheremo senz’altro di ac¬ 
contentarvi. 

Comunque, anche negli ultimi numeri 
ci sembra di aver affrontato proble¬ 
matiche che vanno al di la de! sempli¬ 
ce gioco preconfezionato. 
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I primi timidi “bip” emessi faticosa¬ 
mente dai personal di qualche anno 
fa, la tecnologia dei generatori di 
suono per i microcomputer ha fatto 
passi da gigante, fino ad arrivare a 
permettere l’inserimento di un vero 
e proprio sintetizzatore a tre oscilla¬ 
tori in uno degli apparecchi più po¬ 
polari e diffusi, il Commodore 64, 
appunto. L’architettura di questo 
sintetizzatore è molto simile a quella 
di uno strumento “storico” per la 
musica pop e rock, il Minimoog. Il 



nostro generatore di suoni è però 
completamente programmabile ed è 
contenuto in un chip non più grande 
di un francobollo, il SID (Sound In¬ 
terface Device) 6581. Al posto dei 
tasti e degli interruttori di un tradi¬ 
zionale sintetizzatore, il SID contie¬ 
ne dei registri di controllo accessibili 
da BASIC tramite l’istruzione PO- 
KE che consente di comandare tutti 
gli effetti sonori possibili. Dopo 
aver acquistato un po’ di confidenza 
con il BASIC e con le convenzioni 
relative al significato dei bit di con¬ 
trollo dei registri del SID, si può 
cominciare a lavorare con questi 
“interruttori virtuali” come se fos¬ 
sero i tasti e il pannello di un comu- 
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ne sintetizzatore. È possibile, ad 
esempio, formare accordi di tre no¬ 
te, modulare scale cromatiche più o 
meno temperate, esibirsi in valzer 
lenti o inventare i ritmi più strampa¬ 
lati, a patto di aver preso dimesti¬ 
chezza con lo “strumento”. Esisto¬ 
no in commercio, per i pigri..., pro¬ 
grammi che consentono di utilizzare 
la tastiera del C 64 come se fosse 
quella di un pianoforte (non comin¬ 
ciate a dipingere di nero i tasti!) o di 
vedere sul pentagramma che com¬ 
pare sullo schermo la melodia che si 
sta eseguendo. Alcuni lo hanno già 
utilizzato per creare opere di video¬ 
art sonorizzata, a Reggio Emilia 
stanno componendo un pezzo per 
banda e computer, qualcun’altro 
progetta di collegarlo ad altri stru¬ 
menti elettronici. Non c’è male, so¬ 
prattutto se si considera che il Com¬ 
modore 64 costa meno di un sinte¬ 
tizzatore! 

Commodore S.r.l. 

Via Fratelli Gracchi, 48 
Cinisello Balsamo (MI) 

Tei 02-6125651 




Computer Club 
a Grugliasco 


Un effervescente Computer Club ci 
prega di dare spazio alle sue iniziati¬ 
ve. Lo facciamo volentieri, ricor¬ 
dando a tutti i club che siamo dispo¬ 
sti a pubblicare comunicati di inte¬ 
resse generale. A Grugliasco il loca¬ 
le Computer Club organizza corsi 
introduttivi e di BASIC; grazie al 
successo anche esterno dell’iniziati¬ 
va (arrivata a proporre dei corsi per i 
CRAL di Torino con pratica su 
macchine Apple) per il prossimo 
autunno sono in cantiere corsi di 
Pascal, COBOL e Assembly: vale la 
pena di prenotarsi. L’associazione 


al Club (costo: 5000 lire) dà diritto 
ad un elenco di programmi disponi¬ 
bili per l’acquisto a prezzi contenuti, 
con particolare ricchezza di softwa¬ 
re per Spectrum, Apple e VIC. Per 
informazioni telefoniche, farsi vivi il 
lunedì in orario d’ufficio allo 011- 
7803674. 


Computer Club II Laboratorio 

Via Cotta, 20 

i0095 Grugliasco (TO) 



Arriva da Taiwan l’annuncio di un 
convertitore che permette di memo¬ 
rizzare su un’ordinaria C-60 fino a 8 
giochi Atari. Questo caricatore, det¬ 
to Wizard Charger MG-400, viene 
inserito nel Video Computer System 
mentre dall’altro lato riceve la video 
cassetta. Agendo opportunamente 
sui tasti dell’Atari è possibile trasfe¬ 



rire il video gioco sul registratore a 
cassette inserito nel Wizard Char¬ 
ger. E naturalmente possibile anche 
leggere il video gioco direttamente 
dalle audio cassette preparate con 
questo sistema. Questo prodotto 
(che non crediamo faccia fare salti di 






























gioia ai produttori e ai rivenditori 
ufficiali di materiale originale) con¬ 
sentirà di registrare e scambiare vi¬ 
deo giochi con la stessa facilità con 
cui si riproducono e ci si scambiano 
le cassette di musica pop e rock. 

MIT AC Ine. 

Nanking E. Road 
Taipei, Taiwan, R.O.C. 



La Dragon, distribuita in Italia dal¬ 
la ECO di Verona, ha messo a punto 
una versione da 64 Kbyte di memo¬ 
ria del suo home computer, dotan¬ 
dolo di software applicativo e di uni¬ 
tà a dischetti che ne rendono possi¬ 
bile l’utilizzo anche per attività pro¬ 
fessionali. La nuova macchina, det¬ 
ta Dragon 64, presenta tre “modi” 
principali di operazione: è comple¬ 
tamente compatibile con il prece¬ 
dente 32 nella modalità 32 Kbyte. 
Per l’uso dell’interprete BASIC Mi¬ 
crosoft è disponibile la modalità 48 
Kbyte, che vede impegnati 16 Kbyte 
di RAM per l’interprete e ne lascia 
48 per i programmi utente. Esiste 
anche un sistema operativo, l’OS-9, 
capace di utilizzare completamente i 
64 Kbyte di memoria a disposizione 
nell’ultima modalità consentita. A 
differenza di molti altri elaboratori 
“a la page”, il Dragon 64 non utiliz¬ 
za un processor a 16 bit, ma monta, 
come il 32, un 6809E a 8 bit. La 
tastiera è professionale, QWERTY 
a 53 tasti, le porte previste sono una 
RS 232 seriale, una parallela Cen¬ 
tronics e le uscite per 2joystick, per 
il video e il registratore a cassette. Il 
disk drive (a “mezza altezza”) tratta 



floppy a singola faccia e doppia den¬ 
sità, per un totale di 180 Kbyte visi¬ 
bili all’utente. Il sistema operativo 
per l’uso dei dischi è residente nella 
ROM presente sulla scheda di con¬ 
trollo del drive. Sono previsti, oltre 
al citato Microsoft BASIC, il Pascal, 
l’Assembly e il linguaggio C. I prez¬ 
zi? Il Dragon 64 costa 690.000, il 
controller per le unità a disco 
140.000, il cabinet con un drive 
610.000 mentre la versione con due 
drive ha un prezzo di 990.000 lire. Il 
software a disposizione costa dalle 
17.800 lire per i giochi alle 160.000 
del Super Writer IL 


ECO S.r.l. 

Via Prato Santo, 18 
37126 Verona 
Tel. 045-913297 



Abbiamo deciso di dare carattere 
sistematico e continuativo ad un ca¬ 
nale d’informazione diretto ai nostri 
vecchi e molti amici: i musicisti. Ed 
abbiamo anche deciso di attivare un 
altro canale diretto d’informazione, 
anch’esso permanente, rivolto ai 
nuovi amici che andiamo cercando 
tra gli appassionati di home compu¬ 
ter e tra tutti coloro che, per hobby o 


per professione, s’interessano di in¬ 
formatica. Molti di voi sono sicura¬ 
mente anche appassionati di musica 
e noi, che siamo esperti nel settore 
dello strumento musicale e siamo 
entrati a vele spiegate nel settore del¬ 
l’informatica applicata alla musica, 
pensiamo di avere per voi proposte 
interessanti ed informazioni sempre 
fresche per mantenervi aggiornati. 
Per realizzare la nostra iniziativa ab¬ 
biamo scelto quattro testate tra le 
più qualificate nell’area della stam¬ 
pa specializzata: Strumenti Musicali, 
Bit, Personal Software e HC. 

Tutte e quattro, sono testate del 
Gruppo Editoriale Jackson.... 

E non è un caso... loro specializzati, 
noi anche: cercarsi, trovarsi e colla¬ 
borare è consequenziale. 

Lasciateci ora un po’ di spazio per 
dirvi chi siamo e, prima ancora, cosa 
abbiamo fatto per arrivare ad essere 
quel che siamo. 

I nostri vecchi amici - i musicisti - già 
sanno chi siamo e come ci muovia¬ 
mo nel settore: molti di loro hanno 
certamente utilizzato le nostre ta¬ 
stiere, i nostri piani elettronici e pa¬ 
recchi sono già ora alle prese con il 
sintetizzatore polifonico Opera 6, 
con il suo Expander e la relativa 
interfaccia MIDI. 

E già siamo nell’informatica musi¬ 
cale: già strumenti musicali e perso¬ 
nal computer si sposano prometten¬ 
do miracoli! 

E già stiamo parlando ai nostri nuo¬ 
vi amici di come essi potranno - fi¬ 
nalmente - far musica sul serio ser¬ 
vendosi dei loro personal computer 
ma... servendosi di strumenti musi¬ 
cali di qualità elevata dalle timbri¬ 
che raffinate ben al di sopra delle 
prestazioni musicali, sempre acces¬ 
sorie, degli home computer. 

La nostra ambizione è quella di fare 
degli informatici dei patiti della mu¬ 
sica e viceversa! E siamo convinti di 
farcela. 
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Ma torniamo a noi ed alla nostra 
breve storia. 

La S.I.EL. in versione 1984 dispone 
di uno stabilimento di circa 8.000 
mq., occupa 130 persone di cui oltre 
il 15% (20 tecnici) sono addetti al 
reparto ricerca e sviluppo. 

Già l’organico del reparto ricerche, 
se rapportato all’organico comples¬ 
sivo dell’unità produttiva, è un chia¬ 
ro indice delle metodologie operati¬ 
ve della nostra azienda. Ciascun 
nuovo progetto, scaturito da una ac¬ 
curata ricerca di marketing, coin¬ 
volge, globalmente, tutte le compo¬ 
nenti del nuovo prodotto: parti elet¬ 
troniche, elettromeccaniche e mec¬ 
caniche; senza dimenticare funzio¬ 
nalità, praticità d’impiego ed esteti¬ 
ca. 

Anche l’ingegnerizzazione di ogni 
nuovo prodotto occupa un posto 
importante nelle procedure azienda¬ 
li ed è seguita, nella fase produttiva, 
da un rigido controllo qualità esple¬ 
tato internamente per i materiali in 
ingresso e per i semilavorati even¬ 
tualmente prodotti all’esterno. Così 
otteniamo l’elevato standard quali¬ 
tativo dei nostri prodotti. 

Il livello dei nostri tecnici è ottimo 
ed è parte della politica aziendale un 
loro costante aggiornamento. Tra di 
essi sono presenti anche tecnici/mu¬ 
sicisti, capaci quindi di interpretare 
le esigenze dell’utilizzatore finale e 
questo ci garantisce la capacità di 
adeguarci con esattezza e sufficiente 
elasticità ai mutevoli indirizzi del 
mercato. 

La nostra produzione è indirizzata 
per l’80% all’esportazione. Vendia¬ 
mo in tutti i Paesi dell’Europa occi¬ 
dentale, nei Paesi del Medio Oriente 
e negli Stati Uniti. Ovunque dispo¬ 
niamo di una rete distributiva capil¬ 
lare, in alcune aree controllata diret¬ 
tamente dalla S.I.EL. stessa. 
L’organizzazione interna dell’azien¬ 
da è interamente controllata da un 
IBM 38: programmazione delle 
commesse, degli approvvigiona¬ 
menti, della produzione, del magaz¬ 
zino in tutti i suoi settori, ammini¬ 
strazione e contabilità generale, tut- 
10 
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to fa capo al centro meccanografico 
naturalmente accessibile anche ai 
progettisti. 

La storia di un’azienda, specie se 
letta dall’utilizzatore, si identifica 
nei suoi prodotti: ricordiamone al¬ 
cuni tra i più recenti e significativi, 
indicandone gli anni di presentazio¬ 
ne. 

Cruise 5 (1980) Orchestra 1. (1982). 
Il primo è una tastiera dotata di ef¬ 
fetti quali archi, brass e strumenti 
percussivi, completato da un sinte¬ 
tizzatore monofonico. 

Il secondo è un’altra tastiera, fornita 
di timbri simili al precedente ma 
senza sintetizzatore che è la versione 
aggiornata di un modello similare 



presentato circa due anni prima. 
Cruise ed Orchestra sono strumenti 
dedicati al “tastierista” che deve 
amalgamare gli strumenti (solita¬ 
mente pochi) del suo complesso con 
sonorità orchestrali. L’obiettivo è 
stato pienamente centrato e possia¬ 
mo dire di aver coperto con questi 
due strumenti (tre considerando la 
prima versione dell’Orchestra) un’a¬ 
rea di mercato trascurata da molti. 
E la ragione del successo sta in quel 
“punto di equilibrio” di cui abbia¬ 
mo detto. 

Negli anni 1982/83 abbiamo dedica¬ 
to la nostra attenzione anche agli 
amatori, ai principianti che cercano 
una via facile per avvicinarsi alla 
musica. E nato cosi il Flying in due 
versioni contraddistinte dai numeri 
49 e 61 indicanti il numero dei tasti. 


Il Flying è dotato di una batteria 
elettronica e di tutta una sezione di 
accompagnamenti automatici per 
ottenere gli accordi corretti nel tem¬ 
po corretto: proprio ciò che occorre 
ad un principiante. 

Nella progettazione di questo stru¬ 
mento è stata dedicata molta cura 
anche alla linea, visto che si trattava 
di un italiano, carrozzato in Italia, 
che doveva combattere contro l’ag¬ 
guerrito invasore giallo che ha pro¬ 
fuso in questo settore investimenti 
ed energie a non finire. E dal con¬ 
fronto il Flying non è affatto uscito 
con i tasti pesti! 

Poi sono arrivati i piani elettronici 
Piano 4 e PX con dinamica di tastie¬ 
ra, realizzati con la particolare tec¬ 
nica della modulazione di ampiezza 
(1983). Molto potremmo dirvi di 
questi, ma il foglio bianco si accor¬ 
cia inesorabilmente... passiamo su¬ 
bito agli ultimi arrivati. 

Opera 6. Un sintetizzatore polifoni¬ 
co, con timbri programmabili, il 
nuovo strumento per i tastieristi che 
tiene validamente testa agli “inva- 
ders” d’ogni colore. È provvisto di 
MIDI, è cioè predisposto per dialo¬ 
gare con altri strumenti dotati di 
standard MIDI o per essere interfac- 
ciato con un personal computer! E 
per ora vi lasciamo immaginare rut¬ 
to quello che si può fare... ve lo dire¬ 
mo la prossima volta! 

Expander. E4 in pratica un Opera 6 
senza tastiera che espande appunto 
le prestazioni del primo utilizzando 
quel protocollo MIDI al quale ab¬ 
biamo accennato. 

Opera 6 ed Expander uguale due 
strumenti (ma potrebbero anche es¬ 
sere una mezza dozzina) suonati da 
un solo esecutore. 

Poi abbiamo preparato un accesso¬ 
rio: il MIDI Interface. È ciò che oc¬ 
corre per collegare l’Opera 6 ed il 
suo Expander ad un personal com¬ 
puter e ricavarne un potente sequen- 
cer, una macchina per comporre 
musica, un compagno per suonarci. 
Non meravigliatevi troppo se parlia¬ 
mo così bene dei nostri strumenti.... 













se non ne fossimo convinti non li 
avremmo costruiti, non vi pare? Poi 
noi ci fidiamo del responso del mer¬ 
cato che è sempre il giudice d’appel¬ 
lo: non ci ha ancora né contraddetti 
né delusi. 

Quindi noi continuiamo per la no¬ 
stra strada che mira decisamente ad 
una intensa utilizzazione dell’infor¬ 
matica in musica, a favorire l’abbi¬ 
namento strumento musicale/per¬ 
sonal computer. 

E proseguendo per questa strada 
stiamo preparando grosse sorpre¬ 
se... che non mancheremo di segna¬ 
larvi nei prossimi mesi. 

Aspettatevi comunque qualche nuo¬ 
va sigla - per esempio MK - e vedre¬ 
mo insieme cosa nasconde! 

S.I.EL. S.p.A. 

Zona Industriale 

63030 Acquaviva Picena (AP) 

Tel. 0735-60744 



Si è costituito il FORTH Interest 
Group Italia, una associazione cul¬ 
turale senza fini di lucro legata al 
FORTH Interest Group statuniten¬ 
se, avente come fine lo scambio di 
informazioni ed esperienze tra uti¬ 
lizzatori del linguaggio FORTH. 

I soci ricevono un notiziario bime¬ 
strale di oltre 40 pagine, contenente 
articoli, molti esempi di applicazio¬ 
ni, note sulle ultime novità relative 
al mondo FORTH ed il calendario 
di incontro per i soci. 
L’associazione mette a disposizione 
dei soci vario materiale ed i listati 
sorgente del FORTH per quasi tutte 
le CPU usate a prezzi di costo. 
L’iscrizione al gruppo dura un anno 
a partire da Giugno e per l’anno 
1983/1984 la quota associativa è 
stata fissata in L. 40.000. 

Per informazioni ed iscrizioni scri¬ 
vete a: 

FORTH Interest Group Italia 
Via G. Forni, 48 
20161 Milano 
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Nicole Bréaud-Pouliquen 
LA PRATICA DELL APPLE 

"Il Sistema APPLE II", il "BASIC Applesoft" 
il disegno e la grafica: arricchiti da esempi e esercizi. 

130 pagine L. 10.000 
Codice 341D 

F. Franceschini - F. Paterlini 
Voi a il vostra Commodore 64 

Uno strumento fondamentale per la comprensione e 
programmazione del Commodore 64. Con consigli, 
programmi testati, glossario e utili accenni di BASIC. 

256 pagine B L. 22.000 [Codice 347 

Alan Miller 

PROGRAMMI SCIENTIFICI IN PASCAL 

Un'opera base per chi desidera costruirsi una 
"libreria" di programmi in grado di risolvere i più 
frequenti problemi scientifici e ingegneristici. 

372 pagine L. 25.000 
Codice 554P 

Carmine Elefante 
l'home computer TI/99-4A 

li BASIC, il BASIC Esteso e il microprocessore 
dell'home computer della T.l. Con programmi di 
utilità e svago. 192 pagine L. 15.000 
Codice 343B 

Giacomino Baisini - Giò Federico Baglioni 
IL FORTH PER VIC 20ECBM64 

La programmazione in FORTH e la sua 
implementazione sul Commodore VIC 20 e CBM 64. 

150 pagine L. lt.000 
Codice 527 B 

La Biblioteca che fa testo 

| In busta chiusa, e senza impegno, inviate questo coupon a: 

Gruppo Editoriale Jackson - Via Rosellini, 12 - 20124 Milano 

□ Desidero ricevere gratuitamente il Catalogo Generale della Biblioteca 
Jackson e informazioni sulle IO Riviste specialistiche da voi pubblicate. 

(allego L. 1.000 in francobolli per contributo spese di spedizione) 

^ □ Desidero ricevere contrassegno il/i volume/i 

I (pagherò al ricevimento L... 

| più L. 2.000 per contributo spese dì spedizione 


Franco Filippazzi - Giulio Occhini 

VOI E L'INFORMATICA 

L'opera che il manager moderno non può ignorare. 
In 100 tavole: gli strumenti dell'Informatica, 
l'Informatica e l'Azienda, realtà e prospettive 
tecnologiche. 

116 pagine L. 15.000 
Codice 526A 

Roland Dubois 

CAPIRE I MICROPROCESSORI 

Un fantastico viaggio alla scoperta del "cervello" 
elettronico: la funzione del microprocessore, 
delle memorie ROM e RAM, delle interfacce... 

126 pagine 1 . 10.000 
Codice 342A 

Gaetano Marano 
77 PROGRAMMI PER SPECTRUM 

Dalla Grafica alla Business Grafica, dalla musica 
alle animazioni, dai giochi all'elettronica... tutte 
le possibilità offerte dal più piccolo dei computer. 
150 pagine a colon 1.16.000 
Codice 555A 

Rita Bonelli-Daria Gianni 
ALLA SCOPERTA DEL VIC 20 

Un testo chiave per imparare a conoscere e usare 
uno dei Personal del momento. 

308 pagine L. 22.000 
Codice 3380 

Cassetta Programmi L. 15.000 
Floppy Programmi L. 25.000 


| Nome. 
I Via_ 


.Cognome. 


| CAP__ Città____ 
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Controllo del video 
dal linguaggio macchina 


Come sfruttare le 
routine della ROM per 
stampare sullo schermo 
dello Spectrum 

di Waher Sini 

C erto sono già molti i pos¬ 
sessori di uno Spectrum 
che cominciano a divertir¬ 
si con piccole routine in linguaggio 
macchina. Pasticciando con PEEK e 
POKE si fa presto ad accorgersi che 
scrivendo “qualcosa” dall’indirizzo 
16384 (4000H) all’indirizzo 22527 
(57FFH), quel “qualcosa” appare 
sul video. Bene, abbiamo scoperto il 
Display File; di qui a voler visualiz¬ 
zare una lettera il passo è breve. Ac¬ 
cendiamo il nostro beniamino e di¬ 
gitiamo POKF. 16384, 255; ora cer¬ 
chiamo il byte immediatamente sot¬ 
tostante: non è il 16385. E invece 
16384 + 256; e questo per altre sei 
volte per poter completare la casella 
posta alla linea 0, colonna 0. 

Il Display File è difatti organizzato 
in modo apparentemente strano, e 
occorre tener conto di questo per 
creare una routine di PRINT. Ma 
perché sprecare fatica? 


Sicuramente da qualche parte nella 
ROM esiste già una routine di 
PRINT, basta trovarla. Ed allora 
via a spulciare riviste, cercando l’in¬ 
dirizzo di chiamata. Chi è fortunato 
scopre questa “formula magica”: 

Id a, N dove N è il codice del caratte¬ 
re da stampare; 

rst 16 - 16 decimale o 10 esadecimale 
ret. 

Per caricarla usiamo il programmi¬ 
no del listato 1. 

Dopo il RUN comparirà una “W” 
(CHR$ 87) nelle due righe riservate 
al computer, infatti, in mancanza di 
ulteriori istruzioni, è stata stampata 
nella stessa posizione dell’ultima 
stampa sul video, quella della parola 
RUN nella parte bassa del video. 
Per stampare la nostra “W” nella 
parte superiore dello schermo è suf¬ 
ficiente aggiungere la linea “45 
PRINT” al programma. Infatti il 
computer conosce almeno tre canali 
di output: la parte inferiore dello 
schermo, quella superiore e la stam¬ 
pante. Per indirizzarlo opportuna¬ 
mente occorre aprire il canale di co¬ 
municazione desiderato prima del 
comando di stampa. 

I numeri di canale sono: I per la 
parte inferiore dello schermo, 2 per 
la parte superiore, 3 per la stampan¬ 
te. 

In Assembly i canali si aprono così: 


Id a, 2 - 2 per la parte superiore dello 
schermo 

cali 5633 - 160Ih, è l’indirizzo di una 

routine che apre i canali 

ld a, N - stampa 

rst 16 

ret. 

Il nostro scopo è di usare esclusiva- 
mente l’Assembly per gestire il vi¬ 
deo, quindi cancelliamo la linea 45 
appena aggiunta e sostituiamo il 
“3” alla linea 20 con “8” ed aggiun¬ 
giamo la linea 55 DATA 62, 2, 205, 
1, 22. Ora diamo il RUN. La “W” 
comparirà in alto a sinistra. 

Il passo successivo è di stampare in 
una posizione a scelta. In Assembly 
si ottiene con: 

Id a, 2 - parte superiore del video 

cali 5633 - apre il canale 

Id b, L - L è il numero di linea 

Id c, C - C è il numero di colonna 

cali 3545 - 0DD9h, è una routine che 

aggiorna le variabili di posizione 

ld a, N - codice carattere 

rst 16 - stampa 

ret - ritorna al BASIC. 

Per veder girare felicemente il tutto 
sostituiamo l’“8” alla linea 20 con 
“15” ed aggiungiamo la linea “57 
DATA 6, 15, 14, f5, 205, 217, 13”. 
Quelli sottolineati sono L e C che 
possono essere modificati a piacere, 
ma attenzione ! Le linee sono nume¬ 
rate dal basso verso l’alto, dal nume- 


10 CLEAR 59999: LET mera=60000 
20 FQR a=0 TO 3 
30 RERD n: POKE mera +a,n 
4-0 NEXT a 

50 RhNDOMIZE USR 60000 

51 PRUSE 0 

60 DRTfl 62,87,215,201 


Listato I. Programma che effettua la chiamata alla 
routine di stampa dal linguaggio macchina. Per 16 
Kbyte modificare i “60.000” in “30.000". 


55 DRTR 

57 DATA 

58 DATA 
60 DATA 


52,2,205,1,22 

5,24., 14,33,205,217,13 

33,143,92,54.130 

52,87,215,201 


Listato 2. Insieme delle linee data con tutte 
le aggiunte. 

















Controllo del video 
dal linguaggio macchina 


ro 3 al numero 24 inclusi, le colonne 
da sinistra verso destra dal numero 
33 al numero 3 inclusi. Per esempio, 
la casella in alto a sinistra ha le coor¬ 
dinate L24, C33. 

Ma ... il colore? Per il colore c’è solo 
l’imbarazzo della scelta. È sufficien¬ 
te aggiungere, prima della stampa, 
queste due istruzioni: 

Id hi, 23695 - (questa è ATTR T, una 
variabile di sistema: vedi p. 176 del 
manuale) 

Id (hi), Q 

In altre parole (o numeri) si aggiun¬ 


ge la riga “58 DATA 33, 143,92, 54, 
Q” e si sostituisce “15” con “20”. 
Vedi listato 2. 

Ed ora parliamo di Q. Q è un nume¬ 
ro dato dalla somma dei parametri 
che potete trovare nella tabella 1. 
Esempio: per avere una lettera rossa 
su sfondo nero lampeggiante: 
ink red = 2 
paper black = 0 
flash si = 128 

Quindi: Q = 2 + 0 + 128 = 130. 
Provare per credere. 



COLORE 

INK 

PAPER 

white 

7 

56 

yellow 

6 

48 

cyan 

5 

40 

green 

4 

32 

magenta 

3 

24 

red 

2 

16 

blu 

1 

8 

black 

0 

0 


ATTRIBUTO 

SI 

NO 

flash 

1 28 

0 

bright 

64 

0 



Tabella I. Valori per selezionare gli 
attribuii. E necessario sommare il va¬ 
lore scelto per ogni attributo. 



Quando il computer parla il linguaggio delle immagini 


La computer grafica rappresenta un campo di 
applicazione dell'informatica relativamente 
nuovo, ma suscettibile di imprevedibili 
sviluppi. Questo volume, nato in 
collaborazione con alcune delle più 
specializzate istituzioni del settore, esamina 
tutte le possibilità di questa scienza nuova e 
affascinante: dall'animazione cinematografica 
e televisiva ai businnes graphics; dalla 

Mauro Salvemini 


COMPUTER 

GRAFICA 

176 pagine. Lire 29.000 
Codice 519 P 


progettazione in architettura a quella in 
elettronica e in meccanica; dalla mappazione 
alla manipolazione tridimensionale delle 
immagini... Realizzata in modo da permettere 
un rapido, ma esauriente approccio 
all’argomento, l’opera si rivolge a quanti 
(lettori-utenti) siano alla ricerca dei necessari 
chiarimenti per una corretta e proficua 
utilizzazione delle tecniche di Computer grafica. 


GRUPPO 

EDITORIALE 

JACKSON 




Per ordinare il volume utilizzare 

l’apposito tagliando inserito in fondo alla rivista 
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Lista delle variabili 
—per Spectrum- 


Una routine da tenere 
sempre in memoria 
durante la messa a 
punto dei programmi 

di Raffaele Gallieni 

E cco un’utilissima routine 
talvolta compresa nei “to- 
olkit” (cioè i programmi 
che aggiungono nuovi comandi al 
computer con lo scopo di facilitare il 
lavoro del programmatore) dei per¬ 
sonal più costosi. 

Quando ci si trova in fase di messa a 
punto (debug) dei programmi è 
spesso utile potere prendere rapida¬ 
mente visione del valore delle varia¬ 
bili contenute in memoria senza do¬ 
ver eseguire una noiosa serie di 
PRINT. La routine pubblicata svol¬ 
ge questa funzione: è sufficiente ca¬ 
ricarla in qualunque momento con 
MERGE (non con LOAD, altri¬ 
menti si cancella il programma!) ed 
eseguire GOTO 9800 (non RUN 
9800, altrimenti si cancellano le va¬ 
riabili!) ogni volta che si vogliono 
visualizzare i valori delle variabili. 

Commenti al listato 

Per non “sporcare” le variabili 
del programma principale ho usato 
poche variabili ed ho fatto grande 
uso di PEEK, ma questo ha compro¬ 
messo la leggibilità. 

Il ciclo principale (linee 9800 - 9834) 
per prima cosa individua le locazio¬ 
ni di inizio e di fine dell’area delle 
variabili di sistema, puntate rispetti¬ 
vamente da VARS (23627/8) e da E 
LINE (23641); il ciclo termina se la 
variabile di lavoro “v” supera E LI¬ 
NE o se viene trovato un CHR$ 128 


(il che è la stessa cosa). 

Quindi (linee 9812 -9822) viene sta¬ 
bilito il tipo di variabile, esaminan¬ 
do i bit 7, 6 e 5 del primo byte della 
variabile, secondo il seguente sche¬ 
ma: 


0 


1 

var. numerica, identificatore a 1 lettera 

1 

0 

1 

var. numerica, identificare a più caratteri 

1 

1 

1 

var. di controllo di un ciclo FOR NEXT 

0 

1 

0 

stringa di caratteri 

1 

0 

0 

matrice numerica 

I 

1 

0 

matrice di caratteri 


Al termine del ciclo viene presentata 
l’opzione di stampa (linea 9830)che, 
in caso di risposta affermativa apre 
il flusso 2 (la stampante) e ripete 
l’esecuzione. 

Nelle linee 9836 - 9922 si analizza¬ 
no le variabili, stampando prima gli 
identificatori, poi il contenuto e in¬ 
crementando opportunamente la 
variabile di lavoro “v” per l’itera¬ 
zione seguente. 

In fondo al listato c’è la subroutine 
di calcolo per i numeri a 5 byte: se il 
primo byte è 0, allora il numero è 
uno “small integer” e viene eseguita 
la linea 9936, altrimenti il calcolo è 
fatto alla linea 9938. 

Note applicative 

Ed ora un trucchetto molto utile 
per liberare lo spazio (linee 9878 - 
9938) occupato dalla routine: occor¬ 
re rilocare la routine sopra la zona 
delle linee editabili, cioè dalla linea 
10000 in sù. 

Come fare? Innanzitutto occorre 
modificare i salti così: 


linea 

salto a 

9810 

10013 

9812 

10018 

9814 

10025 

9816 

10029 

9818 

10038 

9820 

10046 

9822 

10058 

9828 

10017 


9832 

10001 

9848 

10005 

9880 

10042 

9882 

10039 


poi: linee 9848, 9856, 9874, 9890, 
9914, 9910 salto a 10005; 
linee 9852, 9866, 9886, 9918 salto a 
10068; 

linee 9860, 9894 salto a 10062 e can¬ 
cellare la linea “9878 STOP”. 
Quindi occorre rinumerare le linee 
della routine con base 10000 ed in¬ 
cremento I. Questa operazione può 
essere realizzata automaticamente 
sfruttando il renumber pubblicato 
su Personal Software n. 15 a pag. 70. 
Se avete un renumber che non fun¬ 
ziona fuori dal range delle linee edi¬ 
tabili, rinumerate con base 9744 (= 
10000 - 256) ed incremento 1; il pri¬ 
mo byte del numero di linea conter¬ 
rà così 38 ed il secondo valori tra 16 
e 86. Se non avete alcun renumber 
eseguite questa rinumerazione ma¬ 
nualmente (anzi vi consiglio di ese¬ 
guirla a matita sulla rivista e di in¬ 
trodurre direttamente il listato rinu¬ 
merato, ma attenzione a non com¬ 
mettere errori perché non potete fa¬ 
re girare il programma così intro¬ 
dotto). In questi ultimi due casi 
occorre localizzare manualmente (o 
mediante un programmino che scri¬ 
verete appositamente) tutti i primi 
byte di ogni linea (sapendo che l’in¬ 
dirizzo del primo è dato dalla varia¬ 
bile di sistema PROG (indirizzo 
23635/6) e l’indirizzo dei successivi 
da: P + 4 + PEEK (P + 2) + 256 ★ 
PEEK (P + 3), dove “P” è l’indiriz¬ 
zo del precedente, e cambiare il va¬ 
lore “38” contenutovi in “39”. Così 
la routine di lista delle variabili è 
rinumerata a partire dalla linea 
10000 . 

Occorre infine inserire lo stop di 
protezione alla linea 9999 (“9999 
STOP”) e salvare la routine. Si noti 
che il numero di linea 10000 non può 
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""y^à, 


Lista delle variabili 
_per Spectrum. 


02 : CLS 
'"** LISTO 


9798 STOP 
9800 CLOSE 
9802 PRINT 
OSILI **"'' 

9804. DEF FN h(Z)*PEEK Z+256*PEEK 
(Z + l> 

9808 LET V«FN h(23627) 

9808 LET endXaFN h (2364-1) 

9810 IF v>»endx OR PEEK v»128 
EN 00 TO 9826 


DELLE URRI 


TH 


9812 
= 95 
9814 
= 127 
9816 
= 159 
9818 
= 191 
9820 
= 223 
9822 
=255 
9824. 


OND PEEK V < 


OND PEEK V< 


OND PEEK V < 
OND PEEK V < 
OND PEEK V < 


IF PEEK V > * 64. 

THEN 00 TO 9836 
IF PEEK v>» 96 
THEN 00 TO 9850 
IF PEEK V > 128 OND PEEK V< 
THEN GO TO 9858 
IF PEEK V > =160 
THEN 00 TO 9876 
IF PEEK V > =192 
THEN GO TO 9892 
IF PEEK V > =224- 
THEN GO TO 9916 
PRINT FLOSH i;"Es«cuziona n 
on corretta !"; STOP 
9826 PRINT '"Variabili usate dai 
la routine : ' v ' , 'endx ','z','z9 

' ,'w'. " ' 

9828 IF PEEK 23578 06 THEN 00 TO 
9834. 

9830 PRINT 8i;"Vuoi la stampa ? 
(s/n)"; POUSE 0: INPUT 
9832 IF INKEY$»"S" THEN OPEN 82, 
"p": CLS : 00 TO 9802 
9834. CLOSE 82: STOP 
9836 PRINT "STRINO 
CHR* (PEEK v+32);' 

FOR z=v+3 TÙ 


, wrm « 

9838: 

1) 

934-0: 

934-2: 

934.4-: 

984-6: 

984-8: 

9850 

; CHR* 

9852 

9354- 

9856 

9358 


UOR 

‘ S « 

v +3- 


: ";TBB 

/ t» • 

1+^N 


12 


h (V + 


PRINT CHR* PEEK Zi 
NEXT Z 
PRINT . 

LET V «V +3+FN h (V +1) 

GO TO 9810 

PRINT "NUMERIC UOR:";TOB 12 
PEEK v;" = 

00 SUB 9936 
LÉT V «V +6 
00 TO 9810 
PRINT "NUMER.ORROY 


(' 


CHR* (PEEK V-32) 

9860: 00 SUB 9924- 
9862; LET z=v 
9664.: FOR v=Z+3+2*PEEK 
Z+l + FN h (Z+l) STEP 5 


";TOB 12 


(Z+3) TO 


9866; 

98è8: 

9870: 

9872: 

9874-: 

9876 

, CHR* 

9878 : 

9880: 

9884- 

9682: 

9878 

9884-: 


PRINT TOB 6-LEN STR* Z9; 

: GO SUB 9936 
LET Z9=Z9+1 
NEXT V 

LET V -Z+3+FN h (Z+l) 

00 TO 9610 

PRINT "NUMERIC URR:";TOB 12 
(PEEK v-64) ; 

LET V«V+1 

IF PEEK V > =128 THEN GO TO 


PRINT CHR* PEEK v, 


GO TO 


PRINT CHR* (PEEK v-128) 


ITOB 12 


( V +3) TO 

(V +2+2*PE 


9886: GO SUB 9936 
9888: LET v=v+6 
9890: GO TO 9810 
9892 PRINT "CHRR■ ORROY 
JCHR* (PEEK V-96);"*<", 

9894. : 00 SUB 9924- 
9896: FOR z»V+4 + 2*PEEK 
V+2+FN h (V +1) STEP FN h 
EK ( V +3)) 

9898: PRINT TOB 6-LEN STR* Z9; 

9900:* FÒR W«Z TO z-l+FN h(v+2 + 
2*PEEK (v+3)) 

9902: PRINT CHR* PEEK Vi 

NEXT u 
PRINT 

LET Z9-Z9+1 
NEXT Z 

LET V =V +FN h (V +1) +3 
GQ TO 9810 
:I 


9904 

9906 

9908 

9910 

9912 

9914. 

9916 


HR* 



PRINT "FORNEXT UOR:";TRB 12 


(PEEK V-128). 

GO SUB 9936 
__ = _ LET v«v + 19 
9922: GO TO 9810 

9924- FOR z«V +4 TO v+2+2*PEEK (v + 
3) STEP 2 

9926: PRINT FN h (Z); 1 
2+2*PEEK (v+3); 

9928 NEXT z 
9930 PRINT ")" 

9932 LET Z9»l 
9934. RETURN 
9936 IF PEEK (v+1) =0 
FN h (V+3) -(66536 OND 
=255)): RETURN 
9938 PRINT ((PEEK (V+2) <128)- (PE 
EK (V+2) >=128)) *2t (PEEK (V + 1) -16 
0) * (2t31+2t24* (PEEK (v+2) -128* (P 
EEK (V+2) >=128) ) +2?16*PEÉK (v+3) 
+2t8*PEEK (V +4)+PEEK ( V +S)) : RET 
URN 


OND Z<V + 


THEN PRINT 
(PEEK (v+2) 


Listato 1. Listalo della routine, scritta interamente in 
BASIC. Potete introdurre la routine com’è ed utilizzar¬ 
la con GOTO 9800, oppure rilocarla sopra la zona delle 
linee editabili, secondo la procedura descritta nell’arti¬ 
colo, e utilizzarla con GOTO 10000. 


** LISTO DELLE URRIRBILI ** 

FORNEXT UOR:i * 11 
NUMERIC UOR:PiPPO « 32768 
NUMER.ORROY:a(3) 

1 = 10 

2 « 255 

3 ■ 65535 
CHOR. ORROY:Z*(2) 

1 = 'ab' 

FORNEXT UOR: V a 26293 
NUMERIC UOR:endx ■ 26403 
FORNEXT UOR:Z = 26293 
NUMERIC UOR:Z9 ■ 2 
FORNEXT UOR;w = 26293 
STRING UOR : a * = 'PlUtO' 

CHOR. ORROY:dì(2,10) 

1 = 'primo 

2 = 'secondo 

Variabili usate dalla routine 
' v ' , endx ','z','z9','r, 


Figura I . Risultato della routine presentata con alcune 
variabili di prova. Si noti che viene indicalo anche il 
tipo di variabile. 


apparire nel listato ma verrà visua¬ 
lizzato come “:000”. Per usare la 
routine occorre ovviamente eseguire 
GOTO 10000. 


Ultimo trucchetto: per memoriz¬ 
zare il programma date CLEAR per 
eliminare le variabili di prova e scri¬ 
vete: 


SAVE “VARIABLES” + CHRS 
240 

che permette un elegante nomedi 14 
caratteri. ■ 
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oquax per Spectrum 



SINTETIZZATORE DIGITALIZZATORE 

32806/7 Inizio area dati. 32770/1 Inizio area dati. 

32809/10 Numero byte. 32773/4 Numero byte. 

32815 Durata intercido di ritardo. 32779 Durata intercido di ritardo. 

N.B. - Modifiche alla durata dei cicli di ritardo: più si abbassa il valore più 
aumenta la precisione e l’occupazione di memoria. 

Più lo si aumenta più decresce la precisione e l’occupazione di memoria dei 
dati-voce. 

Figura I. Indirizzi dei dati interni alle due routine che possono essere modifi¬ 
cati da BASIC per ottenere l’effetto voluto. 


Volete far parlare 
il vostro computer? 
Rimboccatevi 
le maniche e copiatevi 
questo programma ... 

di Cesare Giovani 

P er sapere come utilizzare 
efficacemente Loquax oc¬ 
corre spendere qualche pa¬ 
rola sulla teoria della sintesi vocale. 
Il computer, per poter riprodurre la 
voce, ha bisogno di dati che, utiliz¬ 
zati per pilotare l’altoparlante, ri¬ 
producano determinati suoni. Dun¬ 
que per prima cosa serve una routi¬ 
ne in linguaggio macchina che tra¬ 
sformi degli impulsi di origine sono¬ 
ra in dati discreti da porre poi in 
un’area di memoria stabilita; questa 
routine è il “Digitalizzatore”. 

Si vuole poi che il computer esegua 
l’operazione inversa, cioè che tra¬ 
sformi numeri in suoni; per questo 
serve una buona routine in linguag¬ 
gio macchina, il cosiddetto “Sinte¬ 
tizzatore”, (per gli assembleromani 
allego un disassemblato e i flow- 
chart delle routine in questione). 

Ora scendiamo nel pratico visto 
che nulla serve più del toccare con 
mano: per fare sì che il tuo Spectrum 
dica “Salve amico” devi eseguire le 
operazioni seguenti. 

I) Prendi un nastro pulito e, con 
parole chiare e ben scandite, registra 
la tua voce che dice: "Salve amico”. 
Completata la registrazione, riav¬ 
volgi il nastro e posizionalo subito 
prima delle parole appena incise. 

2) Lancia Loquax e rispondi con 
l’opzione I al menu. 

Inserisci ora l’indirizzo di partenza 
dell’area dati (32845) poi, come nu- 
16 


mero dei byte da utilizzare, inserisci 
8000, od un altro numero scelto, te¬ 
nendo presente che un secondo ri¬ 
chiede circa 1000 byte. 

Fai partire il registratore e premi 
subito un tasto. 

3) Conclusa la digitalizzazione e fer¬ 
mato il registratore, sei tornato al 
menu. Ora rispondi con 2. Ti vengo¬ 
no chiesti ancora dei dati, rispondi 
con gli stessi usati nella fase di digi¬ 
talizzazione. Premi un tasto, e se il 
volume del registratore e se la regi¬ 
strazione erano entrambi buoni, 
sentirai il computer dire: “Salve 
amico”. Ricorda che è necessario 
usare un livello piuttosto alto. 

Se tutto è andato bene certamente 
sarai ansioso di utilizzare Loquax 
per dare ai tuoi programmi effetti 
vocali. Per fare ciò prepara una regi¬ 
strazione contenente una di seguito 
all’altra tutte le parole che intendi 
utilizzare nel tuo gioco e, dando un 
numero di byte piuttosto alto circa 
30.000, procedi come prima alla di¬ 
gitalizzazione. 

Fatto ciò riascolta l’insieme delle 
parole e trova per tentativi i valori di 
partenza e di lunghezza che consen¬ 
tono di sentire una parola alla volta, 
ed annotali. 

Tali valori inseriti nelle opportune 
posizioni del sintetizzatore, cause¬ 
ranno, al momento della chiamata 
randomize USR 32804 remissione 


del beeper delle parole volute: per 
esempio “Game over” a fine gioco, 
oppure “Allert invasion” mentre 
stai per essere sopraffatto da orde di 
alieni. 

Adesso, ti consiglio di salvare i dati 
in memoria con l’opzione 3 dando 
come indirizzo di partenza 32804 in 
modo da salvare anche il Sintetizza¬ 
tore. 

Dopo aver verificato i dati puoi dare 
il NEW e caricare il tuo programma 
che però, N.B., non può occupare 
più di 16 Kbyte, dato che ho riserva¬ 
to 32 Kbyte di memoria ai dati voca¬ 
li, come noto molto ingombranti. 
Comunque, chi volesse più spazio 
per il suo programma, può rilocare 
convenientemente le due routine in 
linguaggio macchina, dato che esse 
non contengono salti assoluti. 

Va solo curato che il Digitalizzatore 
non memorizzi dati-voce sopra il 
Sintetizzatore. 

A questo punto la cosa migliore è 
sperimentare tutte le idee perscopri- 
re tutto ciò che Loquax può fare. 

Per concludere qualche cenno sul¬ 
le routine in linguaggio macchina. 
Queste si presentano in forma molto 
spartana, che è il miglior compro¬ 
messo tra efficienza e occupazione 
di memoria; comunque sono facil¬ 
mente migliorabili da chiunque ab¬ 
bia dimestichezza con l’Assembly. 
















""saì 


.Loquax per Spectrum 


DIGITALIZZATORE 


( START ) 


INIZIA 
HL = START 
DE = LUI* 

LIZZA 

AREA DATI 
IGHEZZA 



PRENDI BYTE C = 0 



INTERCICLO DI RITARDO 



PONI AD 1 IL PRIMO 
BIT DI C 


RUOTA C A DESTRA 



PONI C ALLA LOCAZIONE 
PUNTATA DA HL 


INCREMENTA HL 
DECREMENTA DE 



Figura 2. Diagramma di flusso della routine di digita¬ 
lizzazione. 


SINTETIZZATORE 
( START ) 


INIZIALIZZA 

HL = START AREA DATI 
DE = LUNGHEZZA 


PONI IN C 

IL BYTE CONTENUTO 
NELLA LOCAZIONE 
PUNTATA DA HL 



( RETURN ) 


Figura 3. Diagramma di flusso della routine di ricon¬ 
versione in suono. 
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per Spectrum 


1 rem aaaaaaaaaaaaaaaaaaaaaaa 


a a 

a loqurx a 

a a 

a © 1934 . a 

a a 

a Giovani cesare a 


aaaaaaaaaaaaaaaaaaaaaaa 

3 REM programma di sintesi 
3 REM vocale per Spectrum. 

4. rem necessita di 48K ROM 

5 REM 

6 BORDER 1: PRPER 1; INK 7: C 
LS ; CLERR 33767 

10 DEF FN K(X)«X-INT (X/256)*2 
56 

11 DEF FN l(X)sINT (x/256> 

13 DEF FN j (X)= PEEK X+256*PEEK 

(X + 1) 

30 GO SUB 1000 

30 CLS ; BEEP .1,30 

33 PR1NT TRB 14;"LOQURX" 

33 PRINT TRB 6;"© 1984 Giavan 
i Cesare 1 ' 

34 PRINT ""Menu:",TRB 10; "D D 
igita lizza" " 

,35 PRINT TRB 10;"H Sintetizza" 

36 PRINT TRB 10,"1 Salva dati" 

37 PRINT TRB 10; "D Carica dati 

38 PRINT TRB 10;"De fault Menu 

40 INPUT r: IF r<l OR r>4 THEN 
GO TO 30 
43 CLS 

45 GO SUB 100*r 

46 CLS 

50 GO TO 30 

100 PRINT TRB 10;"DIGITRLIZZRTO 
RE"": BEEP .3,1 
105 PRINT "Start area dati:3384 

5" ' 

107 INPUT "da che indirizzo par 
to? ";s 

108 IF S<32845 ThEN GO TO 107 
110 PRINT "Start: ", s " 

113 INPUT "Quanti bytes utiiizz 
i? ",d 

115 PRINT "Lunghezzad " 

130 BEEP .5,20 _ 

130 print "Dai il SD al regis 
t ra to re " 

135 PRINT RT 31,0;"premi un tas 
to per digitalizzare" 

140 PRUSE 0 

141 BEEP .03,40 

142 PRINT RT 31,0;" 

";RT 5,0; 

145 POKE 33770,FN K<S>: PÓKE 33 
771,FN lls): POKE 33773,FN Ud) : 
POKE 32774,FN l (d) 

150 RRNDOMIZE USR 33768 
160 RETURN 

300 PRINT TRB 10;"SINTETIZZRTOR 


E"". BEEP .3,2 

205 PRINT "Start area dati:3264 

5 - ' ' 

310 INPUT "Da che indirizzo par 
to? ";s 

330 input "Quanti bytes? ";d 
330 PRINT RT 31,0,"premi un tas 
to per ascoltare" 

0^0 pQIJSF 0 

333 BEEP .03,40: PRINT RT 21,0; 


;rt 5 , 0 ; 

335 POKE 33806, FN K(S>: POKE 32 
807,FN l(S>: POKE 32809,FN K(d): 
POKE 32810,FN l(d) 

340 RRNDOMIZE USR 32604 

350 INPUT "ti soddisfa? ls/n)"; 

"RN 


Ì55 IF r $(1)="s 
NOTR start : ";s; " 
357 INPUT "vuoi 
? (s/n) "; rt 
360 IF r *Tl) = "s 
270 CLS : GO TO 
300 PRINT TRB 
BEEP .2,3 
PRINT "Start 


THEN PRINT 
bytes: ",d 
tornare al menu 


THEN 
300 


RETURN 
107 -SRUE dei ORTI 
area dati : 3284 
dove vuoi salvare 


310 

5 - - - 

320 INPUT "da 

? " ; s 

325 INPUT "quanti bytes? ";d 
330 INPUT "nome dei fiie?",r* 
340 SRUE r $CODE S,d 
350 RETURN 

400 PRINT TRB 10;"LORD di DATI" 
'': BEEP .2,4 

410 PRINT "Start area dati;3284 


5" 

420 
430 
450 
600 
610 
620 
1000 
1005 
1010 
1020 
1030 
1035 
1050 ... 
8,62,30 


del file 


ri 


input "nome 
LORD r SCODE 
RETURN 

REM *********************** 

REM * linguaggio macchina * 

REM *********************** 

REM digitiz & sintetiz 

POKE 23609,20 

FOR n*33768 TO 32844 

RERD a: POKE n,a 

NEXT n 

RETURN 

DRTR 243,33,0,0,17,0,0,1,0, 
“~,253,219,254,230,64 


,62,30,61,32,353,219,254,230,64 
,40,2,203,193,203,9,16,239,113,3 

5.27.122.179.32.339.251.201 
1060 DATA 243,33,0,0,17,0,0,78,6 
,8,62,19,61,32,353,58,73,93,15,1 
5,15,203,65,40,3,338,56,211,254, 
203,9,16,233,35,27,122,179,32,22 

4.251.201 

9999 SRUE "LOQURX" LINE 1 


Listato I. Master BASIC utile per effettuare la digit(C 
lizzazione del suono e determinare i valori necessari per 
il corretto riascolto mediante il sintetizzatore. Le routi¬ 
ne in linguaggio macchina sono contenute in linee "DA¬ 
TA” alla fine de! listato. 
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per Spectrum 



ESEMPIO USO DEI, SINTETIZZRTORE 

5 CLERR 32803: PRINT AT 10,5; 
PAPER 2; INK 7; FLASH 1; "CARICA 
MENTO LOOUflX CODE PRINT AT 20 

, ©.; "PREGO ATTENDERE. . . " 

1© LORD ""CODE 

2© BORDER 6: PAPER 6: INK 9: C 
LS 

3© PRINT TRB 10; PRPER 1; INK 
7; FLASH 1;"LOGURX DEMO" 

35 PRINT 

50 DEF FN Ìltx)=x-INT lX/256>*2 
56 

6© DEF FN l(X)=INT (XX256) 

SO DIM s (6) : DIM d (6) 

35 PRINT “Si ieri",1 

90 LET S (1) =3364.5: LET d(l)=ll 

00 

95 PRINT "ìnvasion-,2 
100 LET s (2) =3533©: LET d (2) =10 
00 

105 PRINT “game over",3 

110 LET s(3f =37000: LET d (3) =14. 


00 

115 PRINT "player one",4 
120 LET S <4) =39000: LET d <4) «10 
00 

125 print "gel ready",5 
130 LET S(5)=40990: LET d15)=14 
00 

135 PRINT "player l»o",6 
14© LET s(6)=42200: LET d16)=13 
00 _ 

150 PRINT RT 20,6;"© 1964 Giava 
ni Cesare" 

155 PRINT ttl;"premi 123456 
per scegliere" 

160 LET a$=INKEY* 

165 LET a =CODE a*-48 

170 IF a <1 OR a>6 THEN GO TO 16 

0 

190 POKE 32806,FN dista)): POKE 
32607,FN l ts tal) 

200 POKE 32809,FN ktdla>): POKE 
32610,FN l td ta)) 

210 RANDOMIZE USR 32804 
220 GO TO 160 


Listato 2. Programma esemplificativo per generare parole in seguito alla pressione di un tasto. Non è di alcuna utilità 
inserire questo programma senza aver memorizzato una serie di parole e determinali i valori per il sintetizzatore (vedi 
procedura descritta nell'articolo). 

L’indirizzo di partenza e la lunghezza di ogni parola sono contenuti rispettivamente nei vettori “sQ" e "d()". 


DIGITALIZZATORE 
D13ASSEMBLATO 


8000 

F3 

DI 


5001 

214DS0 

LO 

HL,S04D 

3004 

II40IF 

LD 

DE,1F40 

©007 

01000 © 

LD 

BC,08©0 

©0©A 

3E14 

LD 

A, 14 

800C 

3D 

DEC 

A 

©O0D 

20FD 

OR 

NZ,B00C 

800F 

DBFE 

IN 

A,tFE) 

©011 

EB40 

AND 

40 

©013 

2602 

OR 

Z,8017 

3015 

CBC1 

SET 

© ,C 

©017 

CB09 

RRC 

C 

©019 

10EF 

DJNZ 

600fì 

S01B 

71 

LD 

IHL),C 

©01C 

23 

INC- 

HL 

©01D 

1B 

DEC 

DE 

SOIE 

?ft 

LD 

R,D 

601F 

63 

OR 

E 

6020 

20E5 

ulR 

NZ,6007 

©022 

FB 

EI 


3023 

CS 

RET 



Listato 3. Disassemblato della routine di digitalizza¬ 
zione. 

Tutti i valori numerici sono in esadecimale. Si rammen¬ 
ta che le quattro colonne contengono in ordine: indiriz¬ 
zo. codifica numerica, mnemonico dell’istruzione e 
operandi, secondo il formato Assembly standard. 


SINTETIZZATORE 
DISASSEMBLATO 


©024 

F3 

DI 


©025 

214D80 

LD 

Hi_,804D 

8026 

11401F 

LD 

DE,1F40 

902B 

4E 

LD 

C,(HL) 

S02C 

OSO© 

LD 

B, 08 

©02E 

3E13 

LD 

A , 13 

©030 

3D 

DEC 

A 

8031 

20FD 

OR 

NZ,8030 

©033 

3A4S5C 

LD 

A,15C48) 

8036 

0F 

RRCR 


8037 

0F 

RRCA 


8038 

0F 

RRCR 


3039 

C-841 

BIT 

0 , C 

803B 

2602 

OR 

Z,S03F 

©03D 

EE36 

XOR 

38 

803F 

D3FE 

OUT 

(F£),R 

8041 

CB99 

RRC 

C 

8043 

10E9 

DJNZ 

802E 

8045 

23 

INC 

HL 

8046 

1 B 

DEC 

DE 

8047 

7fi 

LD 

A , D 

8043 

B3 

OR 

E 

8049 

20E0 

OR 

NZ,S02B 

8046 

FB 

EI 


804C 

C9 

RET 



Listato 4. Disassemblato della routine di riconversione 
sonora. Tutti i valori numerici sono in esadecimale. 
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Nimble per Spectrum 


Un articolo riservato 
ai nostri lettori 
“ciberneticamente” 
più avanzati 


di P. Francesco G he di ni 


Macchine e pensiero 

he cosa significa AM? 

Gli rispose Gorrister. Ave¬ 
vamo ripetuto quella se¬ 
quenza già mille volte, ma per 
Benny era sempre una novità. 
All’inizio significava Allied Master- 
computer, e poi Adaptative Mani- 
pulator e più tardi divenne senziente 
e si collegò, e allora lo chiamarono 
Agressive Menace; ma ormai era 
troppo tardi e alla fine si diede il 
nome di AM, intelligenza emergen¬ 
te, e intendeva dire - Io sono - 
cogito, ergo sum... penso, dunque 
sono. 

Benny sbavò un poco, e ridacchiò”. 
Tratto da “Non ho bocca e devo 
urlare” 

di Harlan El/ison 

Quale immagine più calzante, più 
simbolicamente significativa, di un 
immane perverso calcolatore pen¬ 
sante, poteva trovare Ellison per da¬ 
re corpo alla figura del male nel suo 
magistrale racconto? 

Forse nessuna! Il calcolatore nella 
mitologia dell’uomo del ventesimo 
secolo è allegoria della Tecnica o, se 
vogliamo, più in generale del sapere 
scientifico. Un sapere che per l’uo¬ 
mo della strada diventa sempre più 
difficile da comprendere proprio 
perché sempre più specialistico, per 
20 


iniziati, non dominabile e quindi 
pauroso. 

Ma a parte questo, è razionalmen¬ 
te proponibile l’idea di un calcolato¬ 
re pensante? O in altre parole pos¬ 
siamo chiederci: “Possiamo costrui¬ 
re, o perlomeno progettare, una 
macchina pensante?”. 

Alla luce delle attuali conoscenze 
siamo ben lontani dal poter dare 
una risposta a questa affascinante 
domanda, ciononostante possiamo 
fare alcune importanti considera¬ 
zioni al riguardo. 

Sarà utile, per introdurre l’argo¬ 
mento, ricorrere ad un programma 
che pur giocando un gioco forse ba¬ 
nale, possiede caratteristiche per al¬ 
cuni versi sorprendenti. 


Un gioco per cominciare 


Sicuramente molti conosceranno 
il gioco del Nim (vedi riquadro I). 
Il programma che vi propongo si¬ 
mula un giocatore di Nim, che affina 
le proprie abilità di gioco con l’au¬ 
mentare del numero di partite di¬ 
sputate (vedi riquadro 2). 

Per poter realizzare ciò praticamen¬ 
te, mi sono ampiamente servito del¬ 
la descrizione delle “macchine a sca¬ 
toline” riportata al capitolo n. 8 di 
“Giochi ed enigmi matematici Voi. 
4”, curato da Martin Gardner, libro 
ai quale rimando chiuque interessa¬ 
to all’argomento per maggiori noti¬ 
zie. 


Il Nim è un gioco che gode di vasta popolarità e come tale si può giocare in molti diversi 
modi che pur non cambiano sostanzialmente lo spirito del gioco. 

Nella versione più nota si parte con un numero arbitrariodi stecchini disposti su ire righe 
diverse (generalmente più di tre stecchini per riga altrimenti il gioco diventa banale); a 
turno si tolgono uno o più stecchini, a patto che stiano sulla stessa riga. Vince chi riesce a 
togliere l’ultimo stecchino. 

Il Prof. Bouton deM'Università di Harvard scoprì che esiste il modo di vincere sempre per 
il primo giocatore anche nel caso molto generale di n pezzi su n righe. Per fare ciò bisogna 
scrivere il numero di pezzi di una riga in base due quindi incolonnando i numeri si devono 
sommare le cifre colonna per colonna: se le somme sono zero o pari la posizione è sicura 
altrimenti la posizione è pericolosa. 

Questo significa che se il primo giocatore gioca al meglio farà solo mosse che non 
permettono al secondo di togliere l’ultimo stecchino assicurandosi in questo modo la 
vittoria. 

Per quello che riguarda il programma ho voluto adottare una piccola variante alle regole 
del gioco: per vincere occorre lasciare all'avversario l’ultimo stecchino o in altre parole 
perde chi prende l’ultimo. Questo rende inattuabile la strategia prima descritta e costrin¬ 
ge il giocatore umano a cercare una nuova strategia. 

I 001 

II 010 

III 01 I posizione sicura secondo la strategia prima descritta 


022 


II 010 

III 011 posizione insicura 


021 


Riquadro I. Spiegazione de! gioco de! Nim. 





















.Nimble per Spectrum. 



Figura I. Schema logico di un sistema a retroazione. 

X rappresenta l’entrata de! sistema, Y rappresenta l’uscita del sistema, W 
(contenuto de! sistema) è funzione di X. Il sensore misura W e immette il dato 
in un comparatore ove esso è confrontato con il valore di riferimento K; se vi è 
differenza il comparatore-attraverso il canale di retroazione - modifica X in 
modo da annullare lo scostamento. 


Il meccanismo fondamentale che sta 
alla base del programma, è molto 
semplice e cercherò di darne una 
breve descrizione. 

Il programma inizialmente non pos¬ 
siede alcun tipo di strategia, ma ha 
immagazzinate, come dati iniziali, 
tutte le possibili mosse legali (cioè 
l’elenco delle mosse possibili in ogni 
possibile situazione). Ogni volta che 
il programma sbaglia e perde la par¬ 
tita, elimina dall’elenco delle mosse 
possibili quella che ha determinato 
la sua sconfitta. Così facendo il pro¬ 
gramma non commetterà mai due 
volte lo stesso errore (vedi figura 7). 
Il programma può giocare sia per 
primo che per secondo e, cosa assai 
importante, può aumentare la pro¬ 
pria abilità giocando contro se stes¬ 
so. 

Questo programma che ho voluto 
chiamare Nimble, come l’analoga 
macchina a scatoline di Stuart C. 
Hight citata nel volume di Gardner, 
ha caratteristiche estremamente in¬ 
teressanti che sarà bene analizzare 
in dettaglio. 

Prima di tutto possiamo notare che 
Nimble ha quello che si dice un com¬ 


portamento teleologico , cioè tende a 
raggiungere una meta. 

Possiamo infatti distinguere uno 
stato iniziale (in cui Nimble è assolu¬ 
tamente privo di strategia e compie 
una qualsiasi delle mosse legali in 
una data situazione), uno stato fina¬ 
le (in cui Nimble ha eliminato tutte 
le mosse che portano alla sconfitta; 
ovviamente se non esiste mai la pos¬ 
sibilità di vincere, per il programma, 
saranno eliminate tutte le mosse dal¬ 
la sua memoria per cui si rifiuterà 
sistematicamente di giocare) e pos¬ 
siamo dire che Nimble tenderà siste¬ 
maticamente a raggiungere lo stato 
finale. 

Perché tutto ciò sia possibile ho do¬ 
vuto dotare il programma di tre 
strutture fondamentali: 

1 ) degli organi effettori interni, cioè 
degli organi in grado di modificare 
lo stato; 

2) di una struttura che mette in gra¬ 
do il sistema di rilevare la differenza 
fra lo stato attuale e lo stato perse¬ 
guito; 

3) di una struttura che metta in gra¬ 
do il sistema di tradurre l’informa¬ 
zione rilevata, in comandi atti a ri¬ 


durre la differenza rilevata. 

In altre parole ho dovuto implemen¬ 
tare un tipico circuito a retroazione 
(vedi figura I ). 

L’effetto macroscopicamente evi¬ 
dente del comportamento teleologi¬ 
co di Nimble è l’affinamento delle 
sue capacità di gioco. In altre parole 
la struttura che è alla base del fun¬ 
zionamento del programma mette 
in grado il programma stesso di mo¬ 
dificare il proprio comportamento 
in funzione di determinati stimoli, 
ma allora possiamo dire che Nimble 
è in grado di “apprendere” (seppure 
nella limitatissima gamma di situa¬ 
zioni previste dal programma). Se 
infatti richiamiamo la definizione di 
apprendimento che danno W.N. 
Kellog e S.H. Britt (“l’apprendi¬ 
mento è un mutamento o una modi¬ 
fica permanente del comportamen¬ 
to risultante dall’attività dell’orga¬ 
nismo stesso e tendente ad adattare 
l’organismo all’ambiente”) noi ve¬ 
diamo che essa si adatta quasi per¬ 
fettamente anche al programma a 
patto che, o generalizziamo il con¬ 
cetto di organismo, o lo sostituiamo 
con il termine più generale di appa¬ 
rato (vedi figura 3). 

Ma non è tutto, infatti se torniamo 
ancora una volta ad analizzare il 
processo di apprendimento del pro¬ 
gramma, noi notiamo che in defini¬ 
tiva esso si identifica col passaggio 
da uno stato contenente n mosse ad 
uno stato contenente (n-l) mòsse 
(vengono eliminate una per volta le 
mosse che portano alla sconfitta). 
Possiamo quindi, generalizzando, 
osservare che il processo di adatta¬ 
mento all’ambiente consiste nella 
banalizzazione di determinati pro¬ 
cessi di tipo superiore (come la scel¬ 
ta casuale fra più possibili mosse 
diverse) in semplici processi del tipo 
causa-effetto (il che avviene quando 
rimane un’unica mossa possibile o 
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INPUT 

0 

0 

0 

0 


1 

1 

1 1 

□ 

MOSSE LEGALI | 
SCELTA 

CASUALE T 

1 i i 

1 1 1 

\ ♦ t 

i 1 

1 

OUTPUT 


0 

0 


APPRENDIMENTO 


quando non ne esiste alcuna e com¬ 
pare la scritta “HO PERSO”) (vedi 
figura 2). 

Mi si permetta a questo punto di 
ricordare una frase dello psicologo 
R.J. Angeli secondo il quale psiche e 
corpo sono “poli funzionali della vi¬ 
ta dell’organismo, così che quest’ul¬ 
timo avendo come compito preci¬ 
puo l’adattamento di sé all’ambien¬ 
te - fisico e sociale - in cui si trova, 
utilizza i processi coscienti al punto 
in cui nuove coordinazioni senso¬ 
motorie sono state stabilite, le quali, 
in seguito perfezionandosi, permet¬ 
tono una graduale diminuzione del¬ 
l’aspetto mentale (cosciente) del 
processo, finché, nel caso limite, la 
coscienza interamente scompare e la 
coordinazione diviene compieta- 
mente automatica”. 

Vorrei chiarire meglio quello che in¬ 
tendo dire: non sto assolutamente 
dicendo che a mio parere la coscien¬ 
za può essere ricondotta ad una scel- 


Figura 2. Processo di apprendimento: 

ta casuale fra determinate alternati¬ 
ve, voglio solo mettere in evidenza 
l’analogia formale che esiste fra il 
processo adattativo del programma 
descritto prima, e ciò che avviene 
nell’uomo; il paragone non intende 
andare al di là di tanto. 


stati successivi de! programma. 

Le tesi funzionalistiche 

Nella prima parte sono state mes¬ 
se in evidenza alcune analogie strut¬ 
turali fra Nimble e alcuni aspetti del 
funzionamento del cervello ma, ve¬ 
diamo ora di chiarire quali sono i 
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Figura 3. Processo di apprendimento: Curve di apprendimento di Nimble nelle prime 18 partite. Nella curva A è 
descritto il comportamento di Nimble quando il giocatore umano muove per secondo e gioca sempre al meglio. Nella 
curva B il giocatore umano muove per primo, effettuando una mossa casuale fra le sole tre possibili, quindi gioca a! 
meglio. 
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postulati teorici che rendono un tale 
accostamento proponibile. 

L'attività mentale può essere spiega¬ 
ta, fondamentalmente, alla luce di 
tre punti di vista: 

1) il punto di vista strutturale (anali¬ 
tico anatomico) che mira a trarre in 
luce gli elementi della vita mentale, 
o a chiarire la natura dei meccanismi 
del comportamento. Si chiederà 
perciò quale sia il sostrato del pen¬ 
siero, quale sia la struttura della 
emozione, quali siano i sentimenti 
elementari; 

2) il punto di vista meccanico tecni¬ 
co (analitico operativo), cioè la spie¬ 
gazione dei rapporti di inserimento 
fra i vari meccanismi che l’analisi 
strutturale aveva rivelato, per esem¬ 
pio come agisce il sentimento sulle 
operazioni deH’intelligenza; 

3) il punto di vista funzionale (dina¬ 
mico relazionale) vuole spiegare la 
funzione di un particolare processo 
nella vita dell’individuo. Intende in¬ 
vestigare a quali bisogni rispondano 
determinati fenomeni, in che senso 
sono dei mezzi di adattamento, in¬ 
somma che relazione hanno con la 
condotta totale dell’individuo. 

Il primo punto di vista risponde alla 
domanda “quid”, il secondo alla 
domanda “quomodo”, il terzo alla 
domanda “cur”. 

Il terzo puntodi vista ha almenodue 
innegabili vantaggi: 

1) non si preoccupa di definire dog¬ 
maticamente la natura ultima e la 
relazione intercedente fra psiche e 
materia; 

2) si limita ad indicare il vero rap¬ 
porto vitale che caratterizza il dina¬ 
mismo organico e che la semplice 
osservazione empirica è in grado di 
verificare. 

Figlio del terzo modo di intendere 
l'attività mentale è il moderno fun¬ 
zionalismo (altrimenti detto Cogni¬ 
tivismo e naturale evoluzione del 


1) Caricare il programma. 

2) Dare il RUN. 

Dopo la scritta di presentazione il programma chiede: “Vuoi che giochi contro me stesso 
per migliorare la mia strategia?" se si intende fare allenare il programma prima di sfidarlo 
rispondere con una “s", altrimenti rispondere con qualsiasi altro tasto. 

In caso di risposta affermativa il programma chiede il numero di partile per il quale si 
deve allenare: un grado di apprendimento medio si ottiene con dieci partite. 

3) Compare la situazione iniziale di gioco. 

Se si intende fare giocare per primo il programma, rispondere “0” alla domanda: 
“RIGA?" 

in caso contrario inserire il numero della riga dalla quale si intende togliere i pezzi. 

A questo punto il programma chiederà quanti 
“PEZZI?" 

togliere dalla riga scelta. 

4) Il programma mostra la situazione dopo la vostra mossa e. dopo pochi secondi, la 
situazione dopo la sua mossa. 

5) Ripetere il passo 3 fino a che non verrà visualizzato il messaggio 
“HO VINTO" 

oppure il messaggio 
“HO PERSO". 

6) Se si intende giocare un'altra partita premere “s", altrimenti qualsiasi altra lettera. 
Il programma automaticamente risistema, dopo ogni mossa del giocatore, i pezzi rimasti 
in modo che la riga numero I abbia un numero di pezzi maggiore o uguale al numero di 
pezzi della riga numero 2 e che la riga numero 2 abbia un numero di pezzi maggiore o 
uguale della riga numero 3. 

La riga con numero più alto ha sempre il numero minore di pezzi. 

Ad esempio la situazione: 

I 

II 

III significa 

1 pezzo nella riga numero .1 

2 pezzi nella riga numero 2 

3 pezzi nella riga numero 1 

se ora operiamo la mossa 1-2 cioè due pezzi dalla riga numero 1 il programma visualizze¬ 
rà la situazione dopo la vostra mossa in questo modo: 

I 

I 

II che significa 

1 pezzo nella riga numero 3 

1 pezzo nella riga numero 2 

2 pezzi nella riga numero I 

Le righe vuote saranno sempre le più ' " non verranno visualizzate. 

Il programma non accetta mosse : ' ■: nel caso togliate anche l'ultimo pezzo 

(perdendo in questo modo la partit ■ -"•Ho non conforme allo spirito del giòco, in 
quanto scopo del gioco è forzare l’avv a prendere l'ultimo pezzo) il programma vi 

avvertirà dell'errore e comincerà una rt"ova partita. 

Il programma gira sullo Spectrum anche non espanso. 

Nota: quando date la vostra mossa al computer fate attenzione a non premere inavverti¬ 
tamente un tasto diverso da una cifra altrimenti il programma si blocca e non è possibile 
riprendere con CONTINUE, ma bisogna dare GOTO 117. 

Si noti anche che durante la fase di apprendimento il computer non visualizza le mosse 
giocate, ma solo il numero progressivo della partita. 


Riquadro 2. Istruzioni per l’operatore. 
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Funzionalismo: scuola psicologica fondata su principi evoluzionistici e fiorita a cavallo 
del secolo negli Stati Uniti. Gli psicologi funzionalisti vedono nell’organismo umano 
l’ultimo stadio del processo evolutivo sia dal punto di vista fisico che psichico, i processi 
mentali vengono intesi come strategie di cui l’organismo si serve per sopravvivere in un 
ambiente fisico e biologico il più delle volte ostile. I funzionalisti affrontano in termini 
specifici le tematiche relative al pensiero c all’intelligenza umana anche se di questi si 
limitano a sottolineare gli aspetti adattativi e strumentali, mentre successivamente il 
cognitivismo dimostrerà che è possibile affrontarne lo studio in maniera più ampia. 

Cognitivismo: termine con cui si indica uno dei più importanti movimenti della psicologia 
contemporanea sperimentale, secondo il quale la mente umana funziona come elabora- 
trice attiva delle informazioni che giungono tramite gli organi sensoriali, in analogia con i 
servomeccanismi di tipo cibernetico, il cognitivismo al contrario del funzionalismo non 
costituisce un sistema teoretico altamente organizzato e internamente coerente. Hanno 
influenzato le teorie cognitiviste la teoria dell’Informazione e la cibernetica che oltre ad 
un linguaggio inedito nella tradizione psicologica, forniscono un modello dell’organismo 
umano come sistema complesso in grado di elaborare informazioni, di compiere scelte fra 
gli elementi in entrata, di porre in atto sui dati selezionati una serie di trasformazioni e un 
immagazzinamento rapido ed efficace, di raggiungere decisioni dipendenti dai risultati 
dell’elaborazione compiuta e non predeterminate in partenza dagli stimoli ambientali in 
entrata. 

K Craik fra il 1940-1945 effettua una serie di esperimenti da cui conclude che la mente 
umana si comporta come un servomeccanismo di tipo cibernetico capace di autocorre¬ 
zioni ogni 500 millisecondi. 

Nel I960 Miller, Pribram, Galanter pubblicano il volume “Piani e strutture del compor¬ 
tamento" in cui per la prima volta l’analogia di funzionamento fra la mente umana e il 
computer viene presentata in modo approfondito. In esso si sostituisce il concetto di 
riflesso con quello di piano di comportamento, che parte dalla premessa secondo cui il 
soggetto conoscente interagisce con l’ambiente circostante, continuamente verificando la 
congruenza fra il proprio progetto comportamentale e le condizioni oggettive esistenti. 
Molti psicologi cognitivisli utilizzano sistematicamente programmi per computer quali 
modelli capaci di simulare i processi mentali superiori pur essendo consapevoli dei limiti 
impliciti di questa simulazione. L'informatica e la cibernetica danno grossi contributi alle 
teorie comportamentali il cognitivismo in particolare mutua da queste termini come 
"input" e “output" che sostituiscono termini tradizionali come stimolo e risposta. 


Riquadro 3. In poche parole cosa sono il Funzionalismo e il Cognitivismo. 


funzionamento storico), i cui assun¬ 
ti teorici danno sicuramente qualche 
indicazione per cercare di risponde¬ 
re alla domanda che ci siamo posti 
all’inizio (riquadro 3). Infatti, il 
Funzionalismo è la filosofia della 
mente basata sulla distinzione, mes¬ 
sa in luce dalla scienza dei calcolato¬ 
ri, fra hardware e software. 

Il funzionalista arriva ad affermare 
che la psicologia di un sistema, come 
un essere umano, una macchina o 
uno spirito disincarnato, non dipen¬ 
de da ciò di cui è composto, ma da 
come è organizzato ciò di cui è com¬ 
posto. 

Il Funzionalismo non esclude la 
possibilità, per quanto remota, di 
sistemi meccanici ed eterei che ab¬ 
biano stati e processi mentali. In li¬ 
nea di principio, secondo queste teo¬ 
rie, tutte le cose diverse da un essere 
umano potrebbero avere un softwa¬ 
re umano. 

Questi asserti teorici hanno grosse 
implicazioni pratiche: una tendenza 
importante delle scienze cognitive è 
quella di trattare la mente come un 
dispositivo che manipola simboli. 
Questo significa che un processo 
mentale può essere ricondotto ad 
una operazione su simboli, ma allo¬ 
ra un processo mentale può essere 
simulato con un algoritmo per mac¬ 
china di Turing e ciò vuol dire che 
siamo in grado, quanto meno, di 
progettare una macchina che simuli 
quel particolare processo mentale. 

Il moderno Funzionalismo pro¬ 
pone un proprio modello teorico 
della mente, che può essere o meno 
accettato in virtù della sua adegua¬ 
tezza (la discussione di quanto il 
modello proposto sia adeguato e ri¬ 
spondente ai fatti sperimentali e 
quali siano invece le sue carenze esu¬ 
la dallo scopo di questo articolo e 
non ne farò quindi menzione), ma al 
di là di questo resta da vedere se il 
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modello va inteso come una sempli¬ 
ce finzione di tipo euristico ose dob¬ 
biamo farne un uso esistenziale. 

Mi spiego meglio: noi possiamo dire 
che la mente si comporta come se 
fosse un servomeccanismo di tipo 
cibernetico, oppure possiamo pen¬ 
sare alla mente come costituita da un 
servomeccanismo di tipo ciberneti¬ 
co. 

Purtroppo non siamo ancora in gra¬ 
do di stabilire quale sia la giusta 
interpretazione, anche se la maggio¬ 
ranza dei ricercatori impegnati in 
questo campo tende ad usare il mo-. 
dello più come strumento interpre¬ 


tativo che come reale spiegazione 
della natura ultima della mente. 


Conclusioni 

La nascita della scienza moderna 
fu accompagnata da uno sviluppo 
del pensiero filosofico che portò ad 
una formulazione estrema del dua¬ 
lismo spirito-materia. René Descar¬ 
tes fondò la propria concezione del¬ 
la Natura su due entità ben distinte: 
la mente (res cogitans) e la materia 
(res extensa). 

La separazione cartesiana permise 












per Spectrum 




agli scienziati di considerare la ma¬ 
teria come inerte, completamente 
esterna da se stessi e organizzata in 
un immane meccanismo. 

La filosofia di Cartesio non fu solo 
importante per losviluppodella fisi¬ 
ca classica, ma ebbe una enorme in¬ 
fluenza sul modo di pensare fino ai 
giorni nostri. La famosa frase “Co¬ 
gito, ergo sum” ha portato l’uomo 
occidentale ad identificarsi con la 
propria mente, invece che con l’inte¬ 
ro organismo. Le più moderne teo¬ 
rie psicologiche tendono a scalzare 
questo modo di pensare in favore di 
una maggiore “organicità della 
mente”, tendono cioè a vedere cor- 



Figura 4. Diagramma a blocchi di 
Nimble. 

po e psiche come una unità funzio¬ 
nale. 

Hanno svolto, e svolgono tuttora, 
un ruolo determinante in questo 
cambiamento gli studi sul tratta¬ 
mento automatico dell’informazio¬ 
ne e lo studio dei meccanismi di con¬ 
trollo, che hanno messo in luce co¬ 
me hardware e software siano solo 
due facce della stessa medaglia. . 
Risulta quindi più che mai vero ciò 
che ebbe occasione di dire il Prof. 
Silvio Ceccato: “La macchina, l’ar¬ 
tefatto, per riuscire a nostra imma¬ 
gine e somiglianza, costringerà a to¬ 
gliere veli e veli alla nostra mente, 
alla nostra psiche e al nostro soma”. 
E forse è proprio questo l’aspetto 
più affascinante: capire in misura 
maggiore chi siamo e dovè andiamo. 
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Nimble per Spectrum 


Listato 1. Listato del programma BASIC Nimble. Gira 
anche su Spectrum 16 Khyte. Il simbolo della pedina 
alle linee 2050 e segg. è ottenuto con i caratteri grafici: 
“ABC” (linea 2050). DEF (linea 2051). GHI (linea 
2052). 


1 REM 


NIMBLE bw P.Qhedini , 
revisione P.S. 


CLS 

7;"I^ 


MI 

NK 


S BORDER 1: PRPER li 
3 PRINT RT 10,9; INK r, 

0 NOME E'": PRINT RT 12,13; 

7; INVERSE 1;"NIMBLE" 

5 00 SUB 5000; REM defil 
« caratteri 

0 REM immagazzina 

le mosse iniziali 
DIM a (3) : DIM mi(19,l 
RESTORE 50 
POR i*l TO 18 
RERD «•(!) 

NEXT i 

DfìTR "abc","bchad", "cgie"," 
ir ", or ", "diekmn 


1 

§1 
4.0 
50 
da f" 


inizion 


, 6 ) 


't f ino" , " fnqr 


Iti 


un" , "no' 


, "gd i jk" ,"empq". 

,"npq","qor , r ","q", "r ' 

60 LET r L1-0: LET fl2»0: INPUT 
PRPER 4., INK 0; "Uuo i Che giochi 
contro ma stessoper migliorare 
la mia strategia (s/n)7 ";a$ 

70 IP a$*"S r ‘ THEN 00 SUB 4000 
60 BORDER 7 
100 LET a»-"" 

110 POR i*l TO 3: LET ali) «3: N 
EXT i 

115 00 SUB 2000: PRINT RT 20,1; 
PRPER 4;"Situaziont iniziala 
PRINT RT 21,1; PRPER 4;" par pa 
ssara inserisci '0' 

117 rem input mossa 

120 PRINT RT 0,0;"Riga 7"; 

125 BEEP .2,30: BEEP .1,25; 6EE 
P .2,30 

130 LET a $*INKEY•’ 

140 IP a*»"" THEN 00 TO 130 
150 IP INKEYÌO"" THEN 00 TO 15 

155 BEEP .12,30 
160 LET al>URL a«: PRINT al 
170 IP a 1*0 THEN 00 TO 290 
160 IF al<l OR a 1>3 THEN PRINT 
PRPER 4;"errore ": GO TO 120 
185 IF a(a 1)*0 THEN PRINT PRPER 
4; "errore ": 00 TO 120 
190 PRINT "Pezzi 
LET a*»INKEY| 

IF «$■"" THEN 
IF INKEY t < >"" 


200 

210 

220 


GO TO 200 
THEN 00 TO 


22 


225 

ììl 


BEEP .12,30 
LET bi-URL a« 
IP bl<*0 OR a 


PRINT bl 
(al) -bl <0 THEN 


PRPER 4;"errore 


PRINT RT 0,0; 

00 TO 190 
245 REM memorizza la mossa 
250 LET a (al) »a (al) -bl 
255 REM ordina le righe 
260 IP a(l) <a (2) THEN 
a(2)-a(1): LET 
a(2) <a(3) THEN 
a (3) -a (2) : LET 
a(1) <a(2) THEN 
a (2) *a (1) ; LET 
fI2»]f12*(-1 
codifica la 


2) : LET 
270 IP 

3) : LET 
280 IP 

2) ; LET 
285 LET 
266 REM 


LET ai-a ( 
a(l) =>al 
LET ai*a ( 
a (2) *a 1 
LET ai*a( 
. ad) «al 
)+1)«rii 
situazione 


Seguito Listato I. 

290 LET cod*100«a (3)+ 10*a (2)+a( 

1) 

300 IP COd *1 THEN GO TO 1000: R 
EM cancella la mossa perdente 
305 IP COd *0 THEN PRINT RT 0,0, 
PRPER 4;"mossa inaccettabile": 
FOR i * 1 TO 250: NEXT i :. GO TO 10 
0 

310 IP f 11*0 RND NOT COd *333 TH 
EN GO SUB 2000: PRINT RT 20,1; P 
RPER 4;"Questa e' la tua mossa ” 
BEEP .2,0: BEEP .4,-10; PRUSE 

20 

320 00 SUB 3000: REM richiama 
le mosse possibili 
350 IP m j ( k) ■" " THEN GO T 

o 1000 ; rem cancella la mossa 
360 POR i*1 TO 6: IP m»(k,i)<>" 
" THEN NEXT i 

370 LET t■INT ( (i-1)«RND>*1 
380 LET ei*m$ (k , t) : REM estrai 
una mossa a caso 
395 |P f 12*0 THEN LEI 


) 


386 

390 

400 


IP 

00 


f12*1 THEN LET 


ei* 

SUB 


■r H THEN GO 
(600* (CODE 


CIMI 

tS'sI 

et-96 


0 

95)«10 


405 

410 


IP 

GO 


i; PRPER 4f ( INK 


fll*l THEN GO TO 286 
_ __ sui 2000: REM visualizza 
situazione 

415 PRINT RT 20, 

0,"Questa e' la mia mossa 

416 PRINT RT 21,1; PRPER 4; INK 
,0j"p«r favore inserisci la tua 

"417 PRUSE 10 
420 GO TO 120 
500 REM mosse 
510 LET a(1)«3: 

4 (3)-2: RETURN 
520 LET £H) *3: 


LET a(2)*3: 

__ _ LET a(2)*3: 

a(3)*1: RETURN 
530 LET ad) *3: LET a (2) *3: 
a(3)*0 : RETURN 
540 LET a(1)«3: 
a(3)*0 ; RETURN 
560 LET a(1)*3: 
a (3)*0 : RETURN 
560 LET all)*3: 
a (3)*0 : RETURN 
570 LET a(1)-3: 
a (3)*1: RETURN 


LET a (2) -2: 
LET a(2)*1: 
LET a (2) *0: 


580 LET 
a (3) «; 


590 LET a( 
a (3) *1: 

600 LET 
a(3)-2: 


a(1)-3; 
RETURN 


1) *C 
RETURN 
a(1)*2: 
RETURN 


LET a(2)*2: 
LET a(2)*2: 
LET a(2)-1: 
LET a (2) *2: 


510 LET a(l) *2: LET a (2) *2: 


LET a (2) *2: 
LET 4(2)*1: 
LET a(2)*1: 
LET a (2) *0: 


a (3)*1: RETURN 
620 LET a(1)*2: 
a(3)*0 : RETURN 
630 LET a(1)-2: 
a (3)*1: RETURN 
640 LET a (1) *2: 
a (3)*0 : RETURN 
650 LET a(1)*2: 
a(3)*0: RETURN 
660 LET ail)*l: LET a(2)»l: 
a(3)=l: RETURN 
670 LET a (1)«1; LET a(2)»l: 
a (3)*0 : RETURN 
680 IP fi 1*1 THEN LET fl2-f 
-1)+1: GO TO 1000 
690 CLS : LET a(l)«l: LET a 
0 . LET a (3)s0: GO SUB 2000 
700 PRINT RT 10,10; PRPER 4 


LET 
LET 
LET 
LET 
LET 
LET 
LET 
LET 
LET 
LET 
LET 
LET 
LET 
LET 
LET 
LET 
LET 
12 « ( 
( 2 ) * 
; fl 
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BE 

10 


Seguito Listato I. 

RSH l;"HO VINTO": BEEP .5,20: 

EP .5,25: BEEP .5,4-5: BEEP .5, 

: BEEP 1,15: GO TO 1060 
1000 REM DELETE 
1004. CLS 

1005 IF fll-0 THEN GO TO 1010 

1006 if ria*9 then let e*-ct 

1007 IP f 12*1 THEN LET ei-df 

1008 IF et»"" THEN GO TO 1052 
1010 POR 1-1 TO 10 

1020 FOR K-1 TO 6 

1030 IF mt (i , k) -et THEN LET m|(i 

)=mt(i, TO k-l> +m$(i , k + l TO ) 

104.0 NEXT k 

1050 NEXT i 

1052 IF M.l*l THEN RETURN 

1056 PRINT RT 10,10; FLRSH 1;" H 

0 PERSO " 

1056 BEEP 1,-10: BEEP 2,-15- 
1060 PRINT AT 20,1;"Vuo x giocare 
ancora (s or n)7 

1062 LET a t-INKEY|: IF J*e"" THE 
N GO TO 1062 

1065 IF INKEY|< >"" THEN GO TO 10 
65 

1070 IF alo"*" THEN STOP 
1075 CLS 
1080 GO TO 100 
2000 REM VISURLIZZRZIONE 
2010 PRPER 6: INK 2: CLS 
2020 FOR k = l TO 3 
2030 FOR i ■! TO a (k) 

2050 PRINT RT 20-6*k ,3 + 7*i j 

2051 PRINT RT 21-6*k,3+7*i; 

2052 PRINT RT 22-6*11,3 + 7*i ; 

2100 NEXT i 
2105 IF a ( k )>0 THEN PRINT RT 21- 
6*k,l; PAPER 5; INK 0;k;"'riga" 
2110 NEXT k 

2115 INK 0: BEEP .2,3 
2120 RETURN 
3000 REM RICERCA 
3005 RESTORE 3050 
3010 FOR K-l TO 18 
3020 READ b 

3030 IF COd«b THEN RETURN 
304.0 NEXT k 

3050 DRTR 333,233,133,33,23,13,3 
,123,223,113,222,122,22,112,12,2 
t X X X XX 

4000'REM routine AUTO 
4010 INPUT PAPER 4; INK 0;"Quant 
« partita vuoi che giochi? ";num 
4020 LeT fi. 1-1: LET f 12-0 
4030 FOR h-1 TO nuRl 
4036 CLS 

4040 PRINT AT 0 , 0 ; PAPER 4;"Sto 
giocando la "ih;"' partita' 1 : BEE 
P .2,h AND h <70 




4050 

I-"" 

NEXT 

4060 

LE 

4070 

4080 

4020 


LET ai-"": LET 
FOR j-1 TO 3: 


C|-"": LET d 
LET a ( j) -3: 


GO 


SUB 285: REM esegui ‘!IMB 


>0 


NEXT h 
LET fll> 

. RETURN 

5000 rem definizione carattari 
tampa padina 
5005 RESTORE 6000 
5010 FOR x-1 TO 9: 
rat tari 
5020 READ Cf 
5030 FOR J —0 
ta 

5040 READ d 


REM numaro ca 


j-0 TO 7: REM numero bv 


5050 POKE USR 
5‘ 

5 


060 NEXT j: 
070 RETURN 


6000 DATA 
127 

6010 DATA "b" 
5,255,255,255 
6020 DATA "C" 

252.252.254 
6030 DATA "d" 
5,255,255,127 
6040 DRTR "f" 

5.255.255.254 
6050 DRTR "g" 
1,0 

6060 DATA "h" 

lécita 

66p 4 6R?fl'"a" 
6,254,253,243 
6090 REM fina 


C|+j,d 
NEXT x 

,0,1,7,15,31,63,63, 
,126,255,255,255,25 
,0,128,224,240,248, 
,127,255,255,255,25 
,254,255,255,255,25 
,127,63,63,31,15,7, 
,255,255,255,255,25 
,254,252,252,248,24 
,243,253,254,246,24 
programma 


III 

II 

1 


III 

: III 

.III .III 

: ABC 

III 

III 

III III 


II 

1 

II 

1 

III 

: III 

.III .11 . 

II , Il A : BCHGD 

III 

III 

Ili III 

III III 

1 


1 I 


III 

: III 

,11 .1 

1 B : CGIE 

III 

III 

III III 

III 

III 

III 

: II 
III 

.1 . 

Ili III 

C : DEF 



II 

| 

II 


. , Il . 

II . II D : EFLNO 

II! 

III 

Ili 


1 

III 

III 

.1 .1 . 

II I 

1 E :FNQR 

III 

II 

■l F 

OR 

1 


1 

1 1 

II 

: Il 

.1 .1 . 

II . 1 ,1 G : DIEKMN 

III 

III 

Ili III 

Il II II 

II 

1 


Il 1 

II 

: Il 

.11 .11 . 

Il , Il H : CD1.JK 

III 

III 

Ili II 

II II 

1 

1 

III 


1 1 

.1 .1 . 

1 1 : EMPQ 

III 

Il 1 

I 

II 

1 



II 

: Il 

, Il J 

KL 

II 

II 

II 


1 

II 

: Il 

1 

, I ,1 

K : l.MN 

II 

II 

Il II 


II 

II 

' Il 

.11 L 

NO 

1 


1 


1 


. 1 .1 

M : NPQ 

II 

II 

1 I 

1 

II 

1 

li 1 

N : QOR 

II 


O : R 


1 

1 


Q: R 


I 

1 

1 

1 

P : Q 



Figura 5. Insieme iniziale delle mosse possibili. 
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MBi 7 ? 

• 

• 


• 

• 


• 

• 

situazione iniziale 
par passare inserisci 

'0' 

Figura 6. Quadro iniziale de! gioco 


de! Nim. 

Figura 7. Diagramma 
dello spazio degli stati. 



NEL PROSSIMO NUMERO DI 

“ — — — — 

■!» — ZZ 11’ — 

--- 


TROVERETE: 


• CARICHE: L’ELETTROSTATICA • ZX WRITER 

CON LO SPECTRUM 

• OTTIMIZZIAMO LE SPESE 

• SALTI ETICHETTATI 

DI RISCALDAMENTO 

PER C 64 

CON IL TI99/4A 

• LA TRIGONOMETRIA 

• SIMULAZIONE DI JOYSTICK 

E LO SPECTRUM 

PER SPECTRUM 


28 



































edicola 
il nuovo 


numero 



S i Mi mb M i c aM pura 


rtmiuziwt f 


CON WPl 


TVTTO SUI VIDfOTU 


IH PROVA: 
CÀSÌÒ PB-700 


e BITEST:, 

SHARP PC 8100 


e SOFTEST:. 


LOTUS 1-2-3 


OKI /jL 92-93- 
CASIO PB-700- 


MAGICATALOG 
PER APPLE 

L’ITALIA IN VIC 20. 


• 7 1 12 LO SPECTRUM 
E LE CARTE. 


CON INSERTI: 

SUPER BIT RISERVATO PERSONAL 

E 

DIGIDATTICA 



UNA PUBBLICAZIONE DEL GRUPPO EDITORIALE JACKSON 
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— Parte seconda — 


Un potente Text Editor 
per VIC 20 


di Alessandro Guida 

Q uesta è la seconda parte di 
un articolo, iniziato il me¬ 
se scorso, che illustra un 
sofisticato programma in grado di 
trasformare il vostro VIC 20 in una 
moderna macchina per scrivere. 

Vi sono i listati del programma e 
alcuni consigli per l’uso. 

Per avere la descrizione completa 
dei comandi di questo text-editor 
dovrete, però, riferirvi al numero 
precedente di Personal Software. 


Il programma 

Poiché questo programma è stato 
realizzato per il VIC in versione da 
16 Kbyte, è stato impossibile con¬ 
centrare tutte le funzioni in un unico 
programma. Perciò Type-Writer I è 
stato diviso in due parti. La prima 
(listato 1), contiene tutti i DATA 
necessari a trasferire in memoria le 
routine in linguaggio macchina. 
Questa prima parte provvede, inol¬ 
tre, a controllare se i DATA sono 
esatti, a proteggere la zona di me¬ 
moria che contiene le routine in lin¬ 
guaggio macchina e a caricare la re¬ 
stante parte. 

Dopo aver digitato l’intero listato 1 
registratelo col nome Type-Writer 1. 
La seconda parte contiene, invece, il 
nucleo principale del programma, 
ed è in BASIC. Dopo aver digitato 
anche questa, registratela con il no¬ 
me “TWI”. Questo è molto impor¬ 
tante, perché la prima parte del pro¬ 
gramma possa trovare e caricare 
30 


Listato 1. Prima pane del programma Type-Writer I. 

Il programma carica la routine in linguaggio macchina in memoria, e provvede 
a caricare anche la seconda parte de! programma da! disco. 


1 rem******##***####***:****:**: 

2 rem# * 

3 remataPe-writer 1 x vie 20# 

4 rem# * # 

5 rem#routine in l.n. # 

6 rem# # 

7 rem##########*#####*#####*# 

10 restere 

20 P ok e56,63 :P ok e55,255 •’ P ok e52,63 ■ Pok *51,255 : c 1 r 
30 n«22272 : Printckir#', 14) 

40 Poke36879,8 

50 Pr infìsseti Attendere Preso!" 

60 Print 11 iCKaricemento routine LMSEte prosramma Principale" 

70 Pr 1 nt"EBttETSMON TOGLIERE IL liISCO « DPl LETTORE FLOPPY Si" 
80 f or i=0tol 139 : reada : Poken+i , a : tt=tt+a : next 
90 ifttO156580thenPrint"SErrore nei data" : end 
100 clr : load"twl", 8 

60000 data 165, G00., 133, 078, 165.• 801 .■ 133,079, 169.. 000 
60010 data133, 080,169,016,133,081,162,022,160,000 
60020 data177,078,201,015,176,010,234,024,105,182 
60030 data.208,045,234,234,177,078,201,032,176,004 
60040 data169,032,016,033,201,064,144,829,201,096 
60050 data176,004,041,063,016,021,201,128, 176,005 
60060 data.856,233,032,@16,012,201,160,144,227,056 
60070 data.233,064,234,234,234,234,234,145,080, 200 
60080 datal92,022,208,206,202,240,029,024,169,080 
60090 datai01,078,133,878,169,008,181,079,133,079 
60108 da ta024,169,022,181,080,133,880,169,000,181 
60110 data081,133,081,076,018,087,164,254,169,000 
60120 data@32,145,211,032,221,221,168,800, 185,080 
68138 date.001,153,233,817,240, 003,208,208,245, 164 
60140 data255, 169, 088, 032,145,211,032, 221,221, 1.60 
60158 data000,185, 000 ,001,153,243,017,248,004, 280 
60160 data208,245,234,120,164,211,177,289,041,127 
68170 data145,289,165,082,133,211,165,883,133,214 
60180 data169,015,133,210,169,234,133,209,164,214 
60198 data200,024,169,022,181,209,133,209,144,006 
60200 data169,000,181,210,133,210,136,288,238,088 
60210 data096,234,234,128,169,880,133,087,169,864 
60220 datal33,088,160,088,169,032,145,087,200,208 
68230 data.251,230,038,165,088,201,086,288,239, 088 
60248 data.096,234,234,024,165,082,101,880,133,087 
60258 data169,000,101,001,133,088,165,887,133,889 
68260 data165,088,133,090,165,002,208,077,164,082 
68270 data132,887,136,132,888,164,887,177, 000 ,164 
60288 dataOSS,145,888,230,088,230,087,165,087,201 
60298 dataGS1,208,238,164,088,169,032,145,800,096 
60308 data169,800,133,000,169,064,133,001, 164, 168 
68310 data.240,016,024,165,000,105,088,133,000,165 
60320 data.001, 135, 008, 133, 00 1, 136, 208,241,024,165 
68338 data167,101,800,133,880,165,081,185,000,133 
68340 data@01,896,234,234,234,162,080,169,832,133 
6035O data.089, 168,800, 177,087,201,832,208,034, 282 
68360 data.208,003,096,162,802,133,890,165, 089, 145 
60378 data.087,165,090,133,009,230,087,288,230,230 
60388 date.088,165,038,201,886,208,222,896,234, 856 
60390 datal69,869,229,083,170,169,885,133, 088, 133 
68400 data@90,169,864,133,887,169,144,133,889,168 
60418 date.079, 177,087, 145,889, 136, 016, 249,056, 165 
60428 data.087,233,080,133,087,165,088,233,808,133 
68438 data088,056,165,089,233,@88,133,089, 165,090 
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automaticamente la seconda. 

Data la lunghezza dei due program¬ 
mi è preferibile salvarli su disco. Na¬ 
turalmente, nulla vieta di registrarli 
su nastro. In questo caso va corretta 
la linea 100 del listato I, sostituendo 
un I all’8 che vi compare come ulti¬ 
mo carattere. 

A questo punto, per usare il pro¬ 
gramma, sarà sufficiente dare: 

LOAD “TYPE-WRITER I”, 8 
ed il consueto RUN. 


Il listato 1 

Sul listato 1 c’è poco da dire, in 
quanto contiene solo un enorme 
elenco di DATA ed una routine che 
si occupa di leggerli e metterli in 
memoria a partire dall’indirizzo 
$5700 (22272 decimale). Terminata 
l’operazione di memorizzazione vie¬ 
ne caricata la seconda parte solo se i 
dati letti risultano esatti. 

Tutti i DATA contengono i codici di 
numerose routine in linguaggio 
macchina che rendono il program¬ 
ma molto veloce. 

Le routine più importanti sono 
quelle che gestiscono l’invio del te¬ 
sto alla stampante e la visualizzazio¬ 
ne di una parte di esso sullo scher¬ 
mo. 


Il listato 2 

La seconda parte costituisce il 
programma vero e proprio che gesti¬ 
sce le varie opzioni a disposizione, e 
che si occupa della creazione e mo¬ 
difica del testo in memoria. 

Il testo è memorizzato a partire dal¬ 
la locazione $4000 ( 16384 decimale), 
sotto forma di una pagina da 80 co¬ 
lonne per 70 righe. In pratica i vari 
caratteri del testo occupano lo stes- 


Seguito listato l. 

60440 da.ta.233, 000, 133,090,202,208,218, 160,079, 169 
60450 da.ta.032, 145,089, 136,016, 251,096, 234,234, 024 
60460 data165,087,1@5,080,133,089,165,088,105,000 
60470 data133,090,166,083,160,079,177,089,145,087 
60480 data. 136,016,249,024,165,087,105,080,133,087 
60490 data165,088,105,880,133,088,024,165,839,105 
60500 da.ta.080 , 133, 089, 165, 090,105, 000, 133,090, 232 
60510 'da.ta.224 ,069,208,216,168, 079,169,032,145,087 
60520 data136,016,251,096,234,234,234,234,166,253 
60530 data. 164,254,169,000,133,253,169,064,133,254 
60540 da.ta.152, 248, 016, 024, 169,080, 101,253, 133, 253 
60550 datai69,800,101,254,133,254,136,208,240,138 
60560 da.ta.024 ,101,253, 133, 253, 169, 000,101,254, 133 
60570 da.ta.254, 164,255, 177,253,217, 119,002,208,004 
68580 datal36,288,246,896,230,253,208,239,238,254 
60598 data165,254,281,086,208,231,169,255,133,255 
60600 da.ta.096, 234,234,234, 234,234,234, 120, 165, 254 
60610 data141,860,003,165,255,141,061,003,024,165 
68620 da.ta.252, 181,254, 133, 254, 169,000,101,255, 133 
60630 data255,168,000,162,848,177,254,201,032,240 
60640 data.020,282,288,009,234,024,165,252,185,002 
68650 data133,255,096,198,254,208,234,198,255,208 
60668 data230,168,001,177,254,153,255,001,201,032 
60678 data.240,007,169,032,145,254,200,208,240,024 
68680 data173,060,083,185,888,133,254,173,061,003 
60690 data185,000,133,255,024,165,251,101,254,133 
60700 da.ta.254 , 169, 808,101,255, 133,255,168,808, 185 
60718 data.008, 082,201,832, 248, 885,145, 254,288, 208 
68720 data.244,024, 152,181,251,133,255,088,896, 234 
60730 data.234,234,234,234,234,234,169,064,133,083 
60748 data169,888,133,082,160,008,177,882,201,015 
60750 data.048, 048,164,252, 177,882,2 01,0 32, 208, 840 
68760 data136,196,251,240,035,177,082,201,032,248 
60778 da.ta.245, 132, 255, 162,082, 164,251,177,882,201 
60780 data.032,248,035,200, 196,255, 843, 245, 302, 288 
60790 data.248, 240, 887, 132, 254,234,234,234 2 34, 234 
68800 data.024, 169, 830,101,882, 133,082, 169,888,101 
68810 data.083,133,883,281,886,208,183,096,132,254 
60828 data165,252,133,000,133,001,230,001,164,888 
60838 data177,082,164,001,145,882,198,001, 198,008 
68840 data165,000,197,254,816,238,238,255, 165,255 
60350 data. 197,252, 248, 282, 164, 254,200, 280, 203 , 1 73 
68368 data.234,234,234,169,081,166,254, 168, 001 , 032 
68870 data186,255,165,255,162,000,168,082, 832 , 1 39 
60880 data.255,169,080,032,213,255,096, 234, 234. 234 
60890 data169,001,166,254,168,081,032, 186,255• 165 
60908 data.255,162,888,160,802,832,139, 255,169,008 
60918 data 133, 251,169,864, 133,252, 16.9,251, 162,255 
68920 data160,885,032,216, 255,096,169,804, 162, 004 
60930 data160,087,832,186,255,169, 880• 1 33 , 000,032 
68940 data189,255,832,192,255,162, 004, 832 , 201,255 
60950 data169,880,133,254,169,864,133, 255 , 1 68,800 
60968 data132,002,168,000,177,254,201,015, 046, 068 
60970 data.876,020,891,234,177,254,032 210# 253/200 
60938 data.196,002,288,246,192,080,240, 805,169,015 
60990 data032,210,255,230,800,165,888,197,169, 240 
61008 da.ta.815, 024, 169,080, 101,254, 133,254, 169,008 
61810 datai01,255,133,255,288,193, 164,881,169,018 
61020 da.ta.032, 218, 255, 136, 203, 250, 832,231 , 255,096 
61038 data.281,014, 240, 084, 169, 832, 283,194,169 , 04 1 
61048 data133,082,288,186,832,223, 255, 016, 181,043 
61850 da.ta.231, 169,800, 133 167. 133, 163,032,044,083 
61060 data165,167,133,255,165, 1 63,1 33,254 , 832 , 000 
61070 data087,832,223,255,240, 25 1, 201,017. 208 , 018 
61080 data165, 168,201,043,240,241,230,163,016,223 
61098 da.ta.281 ,329,208, 010,165, 167.201 , 080, 240,029 
61180 data.230, 167,816,289,201, 145.288,081, 165, 163 
61118 data248,215,198,168,816, 197 , 20 1,157, 240 , 081 
61120 dat-4096,165,167,240,282, 198,167,816,'34,163 
61138 data.088,133, 167,240, 178,234,234,234,255 , 255 
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Listato 2. Seconda pane del programma Type-Writer /. 


2 Poke45, 046 : Poke47.. 046 : Poke49, 046 : Poke46, 57• Poke48,5? : Poke50 • 57 
5 U="^ti6fi6tCCettft6EnSIEBil!tllBT' :di(otx*<51 
7 d i Pitb < 3 > : tb <1 > -10 : tb < 2 )=30 : tb <3 1=50 ■ nr=66 
10 sP$=" ":srK«1 

12 lm=16384 ; is=4@96 : rm=69 : 1(0=10 

14 Printchri< 141chri<81 

15 9osubl 100 : lfK=70-sr?i 

16 Poke-36879 , 8 : Pr i nt"SS" X t "L ine a" t~ab< 11 > "Col • " ; 

17 P ok «204,0 : P ok e650.. 128 

18 xc= l(o : ac=0 : xs=0 : as=0 : 9otoS0 
20 i f p eek < 653 1 and4then200 

30 9etri'i fr$~" "then20 

31 ifri=chr$(191then18 

32 i f r$=chri ( 13 landy c< 1. f r-ithe nxc=r(o : 9oto?2 

33 ifri=chr$< 147lthensy£<224331 : £y£(222721 : 9oto 18 

34 i fri=chri < 201 orr*»chr$ (1481 thèn60@ 

35 ifrÌ="M”then75 

36 i f'r $- " II" orr $= " 4-“ then 1 000 

37 if ri="H" theny c=y c—<y C-C691 : y £=ys—<y£<211 : y (o=yc—y £ : 9otol20 

38 ifr$="M M thenyc=yc+<yc>01 : ys=ys+<y£>01 : y(o=yc-y£ : 9otol20 
40 ch=asc<ril : ifch<32then20 

45 ifch=157then80 

50 i f'ch> 127andch<l611ben20 

68 ifch>191thench=ch-96 

70 Pokei(o+;KC+yc#80.. eh 

71 i f xc=r (oandch032ai-idy c< 1 fri then 135 

72 xc=xc+1 : x£=;<s-( xs<2 11 : 1 fxc>rmandy c< 1 f Jithenxc* 1 (o : xs=2 : y c=y c+sr li ■ y s=y s-sr'i# ( y *< 
( 22-s rii 11 

73 i f xe>rrothenxc*rro 

74 9otoS0 

75 xc=xc+l : xs=xs-<xs<21 1 : if'xc=80andyc<69tbenxc=0 : xs=8 : yc=yc+l : ys=ys—<y S-C211 
77- ifxc*>S0thenxc=79 

80 xm=xc-xs : ym=yc-y£ 

120 a= i (o+xm+y ro#80 : hbX=a/256 : P ok e 1 / hb/i PokeO> a-hb.'it-256 
130 Poke83> y £ : Poke32.> xs : Poke254, yc : Poke255> xc : 9ot0'146 
135 a=i(O+yc*30 ’ hb/i“a7256 : Poke-255 • hb.'-i ' Poke254.. a-hb.'-i#256 : sys<228781 

137 xc=Peek <2551 : ifxc-Crwtheny c=yc+srX : x£= Uo y s*y s-£rJi#<y£<<22-£b?il 1 : 9oto8@ 

138 xc=rm : 9oto72 
140 sy£22272 

150 9oto20 

200 Setri : ch=Peek<1971 
210 lfcb=13theri500 
220 ifch=53thenl2 

230 ifch=0thenxc=tb<11-1 : x£=-21*<xc>571 : 9oto75 

240 ifch=56thenxc=tb<21-1 : xs=-21*<xc>571'9oto75 

250 ifch=lthenxc=tb<31-l : x-£=-21#<xc>571: 9oto75 

26.0 ifch=12thenPoke83> yc ■' £y£<226601 ■ xc=lm : X£=0 : 9oto80 

£70 ifch=34then2000 

280 ifch=51then1300 

290 ifch=43andxc=0thench=14 : 9oto70 

300 ifch=50thenl400 

310 if'ch=42thenl500 

320 if ch= 17thensy £< 230081 : 9oto8@ 

330 ifch=30then9osub17O0 : 9oto80 
346 ifch=36then9o£ub3000 : 9oto80 

350 i f ch= 1 St-benP ok e 1 , nf V . : P ok e 169.. nrvi '■ £y b < 231981 : 9oto80 

360 i f'ch=35andxc=@thench= 12 : 9ot-o70 

378 ifch=27then450 

380 i fcb=41 tber.2500 

390 9oto20 

458 Poke204.. 1 :printli"Sv'iew SH" 

460 £y£<233231 

470 xc=Peek < 1671 : yc=Peek < 1681 : xs=0 : ys=0 : Poke204.. 0 

488 PrintlÌ"Linea3" ■ 9etri : 9oto80 

500 f or- i =xcto79 : P ok e i ro+ i+y c#80 .■ 32 : next 

510 £y£<222721 : 9oto20 . 

600 Poke2, ab£<r-tOchr*<2011 : a=i(o+yc#80 : bb?i=a/256 ■ Pokelbb'i : Poke@, a-hb5i#256 
610 Poke82,xc-sy£<225131 : ifri=chr*<1481then80 

1000 xc=xc-l : x£=x£+<xs>01 : ifxc=~landyc>0thenxc=79 : xs=21 : yc=yc-l : ys=y£+<ys>01 
1002 ifxc<0thenxc=0 
1010 9oto80 
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Seguilo listalo 2. 


1100 print ,: 3HDefinizione Parametri " 

1170 fori=lto3 : Print"aTfìB"i" "tb<i>; : inPmt"IMW ,!l ;»t 

1 ISO a=va.l <a*> : ifa<0ora>79theni=l1 •' 9otol200 
1130 tb<i>=a 

1200 nexti ; ifi>10thenl1@@ 

1205 Primt"HSDefinizione Parametri " 

1210 P r i nt :: Stillar 9 i n i " :P rint " S1SE13 imi atro : " l m " IlEWit’ 1 ; 

1220 imputa* a=val <aS:' ifa<2ora>21them1205 
1230 lni=a ; P0ke251. Im : Primt"SEEIDestro ; Vir ì ”IW«f ;i 

1240 imputa* : a=val<a*> : ifa<58ora>78thenl205 
1233 rm=a : Poke-252.. rr» 

1260 Print"*SEEWum. ri9he Per fo9lio" 'Primt" "mr"IHMI”; 

127 0 inPutn* : ifval<m*><50orval< n* :■ >71tbem1260 
1280 nr=val<n*i : nrX*nr ' nfJi“67-6i|i(nr>66)-nr 

1285 P r i mt " SEHEP «z i atura 1. i m. < 1 -2-3 > " ■' P r i nt " " srX " IHIVr ; 

1230 imPutm* : ifvalCm*><lorva.l<m*>>3themm*=str*<srX> 

1235 £r’-i=va l <m* > : Pok«2295688#srJi : return 

1306 Pok«83.• yc : a= im+yc#80 : hbrJ=a/236 •' pok«38.• hb Y. '■ Pok«37.. a-hbK#256 : sss(22730> ' xc- 1m 

■ XS=0 : 9oto80 

1400 iftr=ltheml410 

1405 tr=l : at=yc : Pok:e4600.' 143 

1407 fori=0to50O : mext : 9oto20 

1410 tr=0 : Pok«4600.' 32 

1420 f or i =8to73 : P ok e i r»+a c#80+ i .■ P eek < i m+y t#30+ i ) : mext 

1430 xc=1m : xs=0 ; 9oto80 

1 500 f or i =@to21 : P oke4580+ i.. 32 : mext 

1510 Primtl*"FIND "f*J 

1520 9etr*:ifr*=""them1520 

1530 ifr*=chr* < 13>them1570 

i 540 if r*=chr* < 207a ndl«n<f *7>3thenf *= l ef t* <f 4.. I «n<f *> -1 > ' Pr i mt "Il II" ; : Poke4586+1 e 
n < f * > 32 : 9oto 1528 

1545 a=asc<r*> : ifa<32ora>127anda<192th«n1520 
i 550 i f 1 em < f* - 10then 1520 
1560 P r i mtr*■ f *=f *+r* ■ 9oto 1520 
Ì570 iff*=""thenf4=" " 

1575 fori=ltolem<f*> : a=asc<mid4<f4.. i> 1>> 

1580 ifa>l92thena=a-96 

1580 poke63l+i,a : mext : Poke235 .> lem<f*) : Pok«253■ xc Pok«254,ac'sas < 22800) 

1600 ifP eek < 255 J=255them1650 

1605 a=peek <254>#256+Peek<253)-16384:ac=imt<a/80> : xc=a-ac*80 

1607 xs=-xc#<xc<21>-10#<xc>20>-l1#<xc>67)■as=-a c* <ac<21>-10*Cac>20>-11#<ac>45) 

1610 ifyc>69themac*63 

1620 f or i =9to21 '? ok «4530+i .• 32 • mext 

1630 p rimtl* " L1mea"tab <11>"Co1."; : 9oto75 

1650 Primtl*"HCT ROUND!! ! figaim?".; 

1660 9etr* : ifr*0"a "amdr*O "m"theml660 


1670 
1680 
1700 
1710 
1720 
1730 
1740 
1750 
1760 
1770 
1780 
.1790 
1800 
1810 
1820 
1830 
1840 
1850 
1863 
1870 
1880 
1 890 
1800 
1910 
r i mt 1 


ifr*="m " them1620 
Boto1500 

Primt"»33 Elenco comandi " 

Primt"SlComandi di tast 1 era : " : Pr imt" 

Primt "Home ( Clr.. CRSR : conserva 
primt" ■'*-'= CRSR left 
Primt‘'DEL= Cancella il carat 
Primt" sinistra i carat- 

P rint " INST=Inserisce uno SP a 
Primt" il cursore e i se 

Primt "STOP remi un tasto” i 
9etr* : ifr*=""theml790 

Primt"8Comamdi diretti : " : Primt "SU Premere con CCTRLl >" 


no la stessa fun- 

tere sotto il cur 
teri se9uemti del 
zio spostando il 
9uenti a destra." 


z i ome ori9imale." 

sore spostando a" 
la stessa ri9a." 
carattere sotto" 


Pr imt "a--’= 1 struzioni . " : Pr imt"c=Passa al modo ealco 


Pri mt " d=canceIla un ' imtera 
Primt"i=inserisce urna riga 
Primt”u=come d con la risali 
primt “ b=imibisce l'a11imea 
Print"@=definiziome dei mar- 
Pri rifila* remi un tasto o C”J 
9etr * ifr*= " "them188© 
ifr*0"c" them 1950 
Primt "PfS Modo Calcolatrice 
P r i mt " SJ+- =somi»a " : P r i mt “ - 

/.* : “divisione 


ri9a a Partire dal 
vuota sotto il cs." 
ta delle ri9he suc- 
memto a destra" 

9imi e dei TflB." 


latore <Premi ScS), 
cursore." 

cessive." 


“sottrazione" ■ Primt"#.'x “moltiplicazione" P 
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Seguito listato 2. 


'■ PrinVS 


"inverte il segno" : Prinf'SE =at 
P r i nt " = =da il ri su l tato " : P r i nt " 519 "torna 

il risultato a Partire dal cursore." 


Print"1"Posiziona il cursore al TRE 1’ 
;■Print"3=va al TRE 3." 
da un Punto ad un al- tro del testo." 
nel testo." 
massa (Premi «friSI." 
to col margine dxt" 


tes 


1915 P rint"CLR "canee Ila 
esPon." 

1920 Print"?i "Percentuale" 
t editor" 

1930 Print"T=come 4 ma riporta 
1940 Print" JftiSF remi un tasto"! 

1945 9etr$:ifr %= ""then1945 
13o0 Print"aComandi diretti 
1355 Print"SCTi"doPPia larghezza." 

I960 Print"2=come 1 ma va al TRE2 
1970 Print"t=trasferisce una risa 
1980 Print"f"cerca un vocabolo 
1982 Print"m=9estione memoria di 
1984 P rint"a=aIlineamento del 
1966 Print"P=stamPa " 

1988 Print"s=stamPa continua" 

1991 Pr int "ÌIS 5 remi un tasto o 
1332 9etr$■ifr*=""thenl332 
Ì994 ifrf="m"thenzzJi=l : 9oto30C0 
1395 return 

2800 fori=8to3 : P oke45S8+i , 160 : next : fori=4 
e4586+i,168 next 
2010 n*<0)-‘"‘ nfa> = "" ' tti=" " : vs*= ,! 0" :Poke204,1 : c=8' ex=0 : dc=0 
2820 if vai(tt*>>9el9then9oto2403 
2825 Printi4tab<3>ri9ht4 <sp$+vs4.. 15>; 

2038 9etr$ 

2048 ifr$<"8"orrt>"3”thèn2060 
2845 ifc^Oandn*< C > «tt#thenn* < 0)»" 1 

2058 ifien<n*<c>Xl5andex<2thenn*< c > *n$ < c > +r$:vs$=n$(c>:ex=ex-<ex<>0> : 9ot 
2068 ifrS=chr$<19>orrt=chr4(147>thennt(c)="" : vs$="8":ex=0 : dc=9 : 9oto2028 
2865 ifr*=chr* < 222>thenn#(c>-" 8.14153":vs*=n*<c> : 3oto2028 
2078 ifr*0 ,; +"andr*0"- M andr*0"<*"avw!r*0“x“andr*0 , V , ’andr*<>" = "andr$<>"5i 
85 


tiva l' 
a l tex 


P r i nt ” v= VI EU/sP osta f i' nestra " 
MS"j 


.017 : Poke4580+i.. 32 • next : fori = 18to21 : Pok 


02820 

"then20 


2880 ifc=0thenc"l oP4=r* : vs$="8" : ex=8 : dc=0 : Poke4599,asc(r$>+128 : 9oto2020 
2085 ifr*<>"=“then2200 
2087 Poke4599*168 

2038 n0=val<ri$<0>> : nl=val (.riti 1 >y ifoP*="+"thentt$=str#(n8+nl> : ex=8 : dc=8 : 9oto2190 

2108 if oPi ; ="-"thentt$=str$(n0-nl > '■ 9oto2190 

2118 ifoP$="#"oroP4="x"thentt$=str$(n0#nl>:9oto2198 

2120 i+'oP#='V"oroP$=" ■' "thentt4=str#(n0r’nl > : 9oto2190 

2138 i foP t- " :-J " thentt$=str$ < n8/100*n 1 > : 9oto2190 

2130 n*{0>"tt* : n *( 1 >=" " : c=8 '• vs$=tti = 9oto2028 

2208 i+'r$="e"andex=8thenex=l■n#<c>=n#(c>+"e+":vs4"n*<c> : 9oto2020 
2218 ifr*<>"s"then2300 
2228 ifex>8then2250 

22301 ifleft*<n*(c>, 1 >0"-"thenn*(c>="~”+n4<c> : vsS"ri4(c> : Soto2020 
2240 rit(c)=ri9htS<n4<cJ > len<nf<c>)-l1 : vs4=nS(c>■9oto2020 
2258 fori"ltolen<n$<c>)+l 
2268 ifmid$<n$(c).■ i.. 1 >O"e"then2290 

2278 ifmid*<n*<c)< i+1, 1 > = " + "thenn*<c?*left*<n*<e>.• i ? + "-"+mid*<;n4(c^ i+2.1 : vs#-n*< 
c> : i=28 : 9oto2298 

2280 n$<c>=left*<n*<c>,i)+"+"+mid*<n*<c>>i+23:vs*«n*<c> : i-20 
2290 next : 9oto2820 

2300 ifr$="."andex=0anddc=0thendc=l : nt(c)=nt(c) + "." r./ S $=n*<c> : 9oto2020 

2310 ifr*="4"thenP ok e204,8:9oto2350 

2320 ifr$O"t"then2030 

2330 Poke204..0 : iftt$=""thenttf"" 0" 

2348 fori = ltolen<tt*> : Pokeim+xc+vc#80+i-l .■ asc(mid$(tt$, i.. 1 )) : next 
2358 Print"3"14"Linea"tab<11 > "Col. "J 
2368 goto130 

2488 Prir»tl*tab<3)"OVERFLOW ERR0R"; 

2416 9etrS •' ifrf=" "then2410 
2420 9oto2008 

2580 Pr int "SIS Stampa continua S" 

2510 Print"3"14 "*-Per terminare 9" 

2520 fori =0to5 : Print”9EEGGEITesto n. "chr$ ( 49+ i > "a?" : Prlnt"WI" left*(tx*< i >+sP*j IO 
2530 input"»";tx*<i>:iftx*(i>="*"theni=5 
2535 if1en <tx*<i> > >10then2530 
2537 next 

2540 Print"SJS3tamPa continua testi SBEC1" 

2550 fori =0to5sprint"il"chrf ( 49+ i )”) "tx$ <ì> ■ next 
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Type-Writer 1 


Seguilo listalo 2. 

2560 Prinf3"l*"BVa bene?3".: 

2570 9etr* : i Pr *<> " s " andr *0 " n " then2570 

2530 iPr*="n“thèn2580 

2590 Print"3" l *" Wumero coP ie< 1-9)73" ; 

2600 9etr* : .i fr*< K 1 " orr*> " 3" then2600 
2610 P rint"S"l*“Premere FI Per finirei" 

262Q f ors c=ltuval( r* ) 

2630 fori0=0to5 : iftx*( le)®"#"ortx*(lo)=" "thenlo=6 : 9oto2750 
2640 priì'it"38 Caricemento Testo 3" : Print"51"tx*< lo) 

2650 poke255,len<tx$<lo)) 

2676 fori = 1 iolen<tx*( lo)? 1 PokeSl 1 + i .• asc(mid*(tx*( lo)/ 1.. 1)) : next 
2683 Poke254.. G : S3s(20135) ■ 9osub5000 
2690 i t"er>20then2758 

2760 ifpeek(197)=39thenlo=6:4c=9:9oto2750 
2716 Print."33 Stampa Testo 3" 

2720 Pokel .■ nf?i : Pokel69j nrfi ; sas(23198) 

2745 1fPeek<197)=39thenlo=6'9 c=9 
2756 next lo.’ 4c 
2760 9oto:i.S 

3000 Pr inf iSSIjestione FaSina Testo" 

3010 Print' 1 «Comandi : " Print’ 1 " 

3020 Print"L-Carica in memoria" 

3030 Print"S-Re9istra" 

3640 P rint" SIComandi disco : " : P rint" " 

3650 Print"R-Cambia nome ad un te sto 9ia.' sul disco" 

3060 print"F-Pormatta dischetto" 

3070 PrinfB-Cancella un testo dal disco" 

3075 Print"^-Mostra il contenuto del dischetto" 

3080 Prinf G-torna al text editor" 

3090 Prinfilai 1 remi un tasto3"; 

3130 9etr$ : ifr$=""then3100 
3105 ■ if zz» 1 thenzz.';'=0 1 9oto 16 
3110 ifr*="9"thenl6 
3128 ifr*="f"then3500 
3130 ifr*="d"then3600 
314@ ifrS="r"then3700 
3150 iPr*="l"then3800 
3160 ifr$="s"then4000 
317S ifr t =" t "then4500 
3180 9o t o 3106 

'3500 PrinfSTH Formattazione disco " 

3516 P r i nt " St-Jome < max 16 car. ) : " : i nP utnm* : i P l en < nm* ) > 16then3500 
3515 ifnm*=""then3000 

3520 p r i nt " ai D ( 2 caratt. ) ' " 1 i nP ut i d* 1 i P l en < i d$ ) O2then3500 
3530 Print"SBÌ Inserire dischetto a da formattare" 

3540 Print"a e Premere CRETURN3" 

3550 ®etr* : iPr*Ochr*<! 13)then3550 
3560 oPeniS..8.' 15/ "n0 : "+»$+"< " + ió$ 

3576 P r i nt " SfiEEEEMRÌIflttendere P re9o ! " : c l ose 15 

3580 9osu.b5000 • 9oto3000 

3600 Print"SfSS Cancellazione Testo " 

3618 PrinflBBUome (max 10 car. ) : " 

3620 inPutnm* : iPlen<nm*)>1Othen3600 

3630 iPnm$=""then3000 

3648 oPenlS.'8.' 15/ "s3 : "+nm* : closelS 

365S 9osub5800 : 9oto3000 

3700 Print" SffS Re intestazione " 

3710 PrinfSEWecchio nome (max IO) " : inputvm* : iPlen(vm*)>10then3700 
3720 i f vm*= " " then'3000 

3738 Print"HNuovo nome (max 10)" : inPutnm* : iPlen(nm*)>10then3000 
3748 iPnm*=""then80 

3753 oP en 15/8.. 15.. " r Q ' " +nm*+ " = “+vmt : c l ose 15 

3760 9osub50O0 1 9oto3800 

3880 Frint" 58S*#Caricemento Testo**" 

3810 Print"STONome (max 18 car.)" 

3320 inPutnm* : iPlen(nm*)>10then38O0 
3330 iPnm*=""then3000 

3840 Print"aaSF:Stesistr. o SFaioPPa ?" 

3850 getr* : iPr*O"r"andr*O"P"then3850 
3863 Poke255/len(nm$) 

3870 Pori = ltolen(nm*) : PokeSl 1 + i t asc(mid*(nm*.■ i , 1>> 1 next 
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3886 Pok«254.-<r*="r" )- 8 # < r*="f"> 

3890 sa s <23135):9osub5000:3oto16 
4600 primt"SWfcReSistrazione Testo#" 

4010 Frint"SCTNoFie (max 10 car. >" 

4026 inPutnm* : iflen < r\tn* »l 0thert4000 

4630 i f nm$= " " thè r.3000 

4040 print"fS14ome 9 ia' esistente?" 

4050 9etr$ : i fr$<> " s " andrSO " r> “ thert4050 
4060 i f ri= " s "thennrt^ = "06 : "+nn$ 

4070 print"itfii-'!5te-9istr. o SFAloPPa ?” 

4086 3etr$: 1f r$<>"r" and r$<> "f"then40S6 
4098 Poke255/len<nm$> 

41 00 f or i = 1 tote n < nini ) ■ p ok e511 + i .■ asc < n i dS < lìmi.. i .• 1 > ) : next 
4118 P ok «254, -<r$= "r " > - 8 # < r$=> " f " > 

4120 sa s < 23162): c,osub 5000 : 9oto3000 

4530 Pr int " SS Contenuto dschietto " : n=0 : oPen 14-.. 8 .. 0.. " f 3" 

4510 f or i =0to6 : 9osu.b4700 : next : dn$= " " : f or i *0to 18' 9osu.b4700 : dnt=dn<:+at : next 
4550 Pr int "'SFv'o 1. : S"dnt : Pr int"Slcontenente : : Pr int" " 

4560 f or i = 1 to20 : 9osub470£i : i f aS=chr#< 8 > then 1 = 100 
4588 next 

4530 for i = 1 to4 : 9osub4?00 : if<st>thenclose!4'9oto4800 

4600 next : f " " : J = 8 : fori = 1 to38 : 9osub4700 : i falOchrl< 34 >ther.4670 

4656 if j = 1theni = 1 00 :9oto4680 

4660 1=1:soto4680 

4670 if j = 1 thenf*=f $+.3.* 

4680 next : n=n+1 : 1 f f $<>" " thenpr 1 ntn "li) “ ; 

4690 P rintf $' 9oto4563 

4700 Set# 14. a# : i f s.%= " " thena*=chri f 0 ) 

4718 return 

4880 Pr inferenti un tasto"; 

431 0 9etr$: 1fr$=""then4318 
4820 9oto380O 
5000 operi 15.- 3.15 

5013 inPut# 15.■ er .• eri .■ et.. es : c Iose 15 
5020 1fer<23thenreturn 

5025 Print 14’’ SWSERRQRE UNITA' DISCO 21"; 

5038 Printer; eri;:printl*et.es; 

5043 aetrl:ifr*“""then5040 
5050 return 


so posto che occuperebbero su di un 
grande schermo dalle dimensioni vi¬ 
ste prima. Naturalmente questo non 
è il sistema più efficiente per conser¬ 
vare dei testi in memoria. 

Purtroppo, però, abbiamo dovu¬ 
to optare per questo tipo di organiz¬ 
zazione a causa delle ridotte dimen¬ 
sioni dello schermo del VIC. Infatti, 
disponendo di sole 23 righe per 22 
colonne, era assolutamente necessa¬ 
rio realizzare un sistema di visualiz¬ 
zazione con scrolling estremamente 
efficiente e veloce, tenendo presente 
anche che buona parte del program¬ 
ma, essendo scritta in BASIC, sa¬ 
rebbe stata un po’ lenta. Il tipo di 
memorizzazione visto prima, inve¬ 
ce, rende molto semplice la visualiz¬ 
zazione di una parte della pagina, 
detta finestra. 

Per gestire questa finestra, sono uti¬ 
lizzate tre coppie di variabili: 

XC, XY Indicano le coordinate 
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del cursore sul foglio; 
XS, YS Indicano le coordinate 
del cursore sullo scher¬ 
mo; 

XM, YM Indicano le coordinate 
dell’angolo in alto a sini¬ 
stra della finestra sul fo¬ 
glio. 

Buona parte del programma è dedi¬ 
cata alla gestione di queste 6 variabi¬ 
li. 

Nel listato 2 si distinguono anche, 
dalla linea 1700 alla 2000, le varie 
videate di aiuto che forniscono il 
riepilogo dei comandi, attivate con 
la pressione dei tasti CTRL ’/’. 
Dalla linea 30 alla 40, vengono in¬ 
terpretati i comandi di tastiera 
(CLR, INST, DEL, ecc.). 

Dalla linea 200 alla 390, invece, ven¬ 
gono analizzati i tasti premuti insie¬ 
me al CTRL per eseguire i vari co¬ 
mandi a questi associati (vedi riqua¬ 
dro 1). 


È possibile aggiungere delle nuo¬ 
ve linee tra la 200 e la 390, per inter¬ 
cettare altri tasti ed aggiungere, cosi, 
nuove funzioni al nostro text-editor. 
In questo caso, però, è necessario 
modificare anche la linea 2. Questa 
serve ad aggiornare i vettori in pagi¬ 
na zero, contenenti la fine del pro¬ 
gramma BASIC e l’inizio delle va¬ 
riabili, poiché questo non viene fat¬ 
to dal computer dopo l’istruzione di 
LOAD del listato I. 

Per conoscere i valori da introdurre 
in tale linea basta battere in modo 
diretto: 

PRINT PEEK (45), PEEK (46) 
subito dopo avere aggiunto le nuove 
linee al programma e prima di dare 
il RUN. 

Si tenga anche presente che di me¬ 
moria libera ne resta molto poca, 
per cui le modifiche apportate al 
programma non lo devono allunga¬ 
re molto. 












RIASSUNTO DEI COMANDI PIU’ 

IMPORTANTI 



Comandi diretti (premere CTRL) 


/(?) 

IST 

H 

HIGH 

U 

UP 

A 

AUTO 

I 

INS 

V 

VIEW 

B 

BLOC 

M 

MEM 

@ 

PAR 

C 

CALO 

P 

PRINT 

1 

TABI 

D 

DEL 

S 

SEQ 

2 

TAB2 

F 

FIND 

T 

TRANS 

3 

TAB3 



Comandi indiretti (senza il CTRL) 




Per la memoria di massa 



$ 

DIR 

L 

LOAD 

S 

SAVE 

D 

DEL 

Q 

QUIT 

1 

ENTER 

F 

FORM 

R 

REN 





In Modo Calcolatore 



X, ★ 

MOLT 

+ 

ADD 

— 

SUB 

: ,/ 

DIV 

% 

PERC 

= 

RES 

Q 

QUIT 

! 

ENTER 

E 

EXP 

s 

SIGN 
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PI 

CLR 

CLR 
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Figura 1. Esempio di testo composto con il nostro programma di Text Editor. 
Per calcolare l’importo totale indicato in questo esempio ci serviremo della 
funzione Calcolatore. Per passare a tale funzione basta premere i tasti 
CTRLC. 



Suggerimenti sull’uso 
del programma 


Diamo qui alcune precisazioni in 
aggiunta a quanto già detto nella 
prima puntata sui vari comandi di 
Type-Writer 1. 

1) In modo calcolatore si hanno a 
disposizione anche i seguenti co¬ 
mandi: S, E, 7i, CLR; che vannodati 
senza l’uso del tasto CTRL. 

“E” attiva la notazione esponenzia¬ 
le (per esempio 1000 = IE + 3). 
“S” cambia il segno del numero o 
dell’esponente. “ n ” che si ottiene 
premendo il tasto SHIFT + “t”, fa 
apparire sullo schermo il valore 
3,14159. “CLR”, infine, cancella 
l’ultimo numero impostato. 

2) In fase di definizione dei parame¬ 
tri iniziali è possibile scegliere anche 
la spaziatura tra le linee, che può 
essere 1, 2 o 3. 

3) Come abbiamo già detto il text- 
editor gestisce una pagina di testo da 
80 colonne per 70 righe. Il formato 
normale di stampa è, invece, di 80 x 
66. Questo vuol dire che le ultime 4 
righe generalmente non vengono 
stampate. Le 4 righe superflue sono 
comunque molto utili per evitare 
che utilizzando per errore la funzio¬ 
ne di inserimento linea le ultime ri¬ 
ghe del testo vadano perse. 

4) II tasto FI serve a terminare in 
qualsiasi momento una stampa. 

5) La funzione VIEW permette uno 
scrolling molto veloce dello scher¬ 
mo, ed è utile per rileggere il testo 
prima di stamparlo. In particolare 
lo scrolling verso destra è continuo, 
per facilitare al massimo la lettura 
del testo. 

6) Nell’impostare i parametri iniziali 
bisogna indicare il numero di righe 
che si vogliono stampare in un fo¬ 
glio. 

Se tale numero è minore o uguale a 
66 viene supposta la presenza di fo¬ 
gli da 66 linee altrimenti da 72. 

7) La funzione FIND, per rintrac¬ 
ciare dei caratteri all’interno della 
pagina, esegue la ricerca dal cursore 
in poi. 

8) La funzione SEQ di stampa conti¬ 


nuata, permette di stampare una se¬ 
quenza definita di testi caricati dal 
disco. L’operazione può essere in¬ 
terrotta con il tasto FI. 

La funzione SEQ non funziona con 
il registratore. 

9) Se in qualsiasi momento non si 
ricordano più i comandi a disposi¬ 
zione si può premere CTRL?. Verrà 
visualizzato l’elenco dei comandi 
senza perdere il testo su cui si stava 
lavorando. 

Le figure I, 2 e 3 illustrano un esem¬ 
pio di composizione di una lettera. 
In essa viene fatto uso anche della 
funzione Calcolatore, e dell’allinea¬ 
mento del testo a destra. ■ 



Figura 2. Esempio di calcolo utiliz¬ 
zante la funzione Calcolatore di 
Type-Writer I. 
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Figura 3. Durante i calcoli l’ultima linea dello schermo apparirà come in 
figura 2. Al termine delle operazioni è sufficiente premere il tasto perchè il 
risultato sia trascritto dove avevamo lasciato il cursore, come si vede in questa 
figura. Si può quindi terminare la stesura della lettera. 
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Figura 4. Dopo aver terminalo la scrittura, possiamo eseguire l'allineamento a 
destra de! testo premendo contemporaneamente i tasti CTRL e A. 
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Un divertente gioco 
direttamente dalla... 
Transilvania 


di Luca Mar ras 

D eath è un videogame redat¬ 
to interamente in BASIC. 
Nonostante questo la velo¬ 
cità di esecuzione è elevata. Come 
vedremo più avanti, infatti, ho uti¬ 
lizzato al massimo le capacità grafi¬ 
che e sonore del C 64, stando però 
attento a non sacrificare la velocità, 
componente fondamentale di ogni 
buon gioco. 

Il tema di questo videogame è piut¬ 
tosto originale, avendo come prece¬ 
dente solo il Dracula della Imagic 
per la console Intel li vision. In ogni 
caso, non è mai stato sfruttato su di 
un personal. Si tratta, infatti, di 
aiutare un vampiro a superare delle 
vere e proprie pioggie di nemici, rap¬ 
presentate di volta in volta da teschi 
coloratissimi o tombe in technico¬ 
lor! Il nostro povero vampiro, però, 
avrà anche un amico... un pipistrello 
che lo aiuterà a rifocillarsi. Ma c’è 
un inconveniente: questo pipistrello 
è dispettoso e si diverte a sparire 
dallo schermo proprio quando c’è 
più bisogno di lui... Sopravvivere si¬ 
no alla fine di ogni livello non è 
facile come sembra: ve ne accorgere¬ 
te giocando! 

Per superare il primo livello, dovrete 
evitare lo scontro con i 50 teschi che 
salgono instancabilmente verso l’al¬ 
to. Fatto ciò, sarete festeggiati da 
un’allegra musichetta, mentre due 
pipistrelli vi porteranno un bonus di 
ben 1000 punti. Al secondo livello 
dovrete combattere contro 60 tom¬ 


be... al terzo, i vostri nemici saranno 
70 e così via. Alla fine di ogni livello 
avrete il consueto bunus. Esso è 
molto utile, poiché ogni 5000 punti 
vi sarà regalata una vita extra (la 
dotazione di partenza è di tre vite). 
Ogni volta che ne perdete una, sa¬ 
ranno visualizzati il punteggio, il 
numero di vite rimastee il numero di 
nemici che dovrete ancora evitare. 
Al termine del gioco, se avrete rea¬ 
lizzato un record il computer vi chie¬ 
derà il vostro nome, che apparirà 
assieme al vostro punteggio nello 
schermo di presentazione del gioco. 
Il movimento del vampiro è unica¬ 
mente orizzontale, e viene coman¬ 
dato dalla tastiera attraverso i se¬ 
guenti pulsanti: 

L = Sinistra 
; = Destra 

Inoltre, viene utilizzato un altro ta¬ 
sto (“A”) per catturare il pipistrello. 
Esso va premuto ripetutamente 
quando vi trovate sopra il pipistrel¬ 
lo, e vi procurerà 20 punti ad ogni 
tocco. 

Vediamo ora come è organizzato il 
programma 

La linea 9 disinserisce il tasto RUN 
STOP. Questo è solo un accorgi¬ 
mento pratico per evitare un indesi¬ 
derato BREAK del programma. Se 
volete reinserire il RUN STOP ba¬ 
sterà cancellare questa linea. 

Le linee da 10 a 70 preparano l’ese¬ 
cuzione del gioco e creano la grafica 
e gli sprite. Esse vengono eseguite 
una sola volta (subito dopo il RUN). 
Hanno anche il compito di leggere i 
DATA. 

Le linee da 80 a 97 preparano lo 
schermo di presentazione e manda¬ 
no alla subroutine 13000 - 13070, 
che crea la scritta Death e stampa il 
massimo punteggio. 

Le linee da 100 a 190costituiscono il 
cuore del programma: controllano 
se si è premuto un tasto direzionale 


(nel qual caso mandano alla subrou¬ 
tine 2000 - 2100), se c’è stata una 
collisione, e muovono i caratteri 
grafici verso l’alto. 

Le linee da 1000 a INO creano il 
disegno dei teschi. 

Le linee da 1500 a 1730 creano i tre 
sprite del gioco (vampiro, pipistrello 
e croci). 

Le linee da 1800 a 1897 creano la 
figura delle tombe che compaiono 
nei livelli pari. 

Le linee 1900 e 1910 creano la musi¬ 
chetta che accompagna il bonus alla 
fine di ogni livello. 

Le linee da 2000 a 2090 costituisco¬ 
no la subroutine che, dopo aver con¬ 
trollato quale tasto è stato premuto, 
muove il vampiro in senso orizzon¬ 
tale. Questa subroutine gestisce an¬ 
che la funzione del tasto “A”. Inol¬ 
tre, attraverso la variabile casuale 
RN, stabilisce anche se il pipistrello 
deve apparire sullo schermo (su¬ 
broutine 3000 - 3100) o sparire (3200 
- 3220). 

La linea 2500 è una piccola subrou¬ 
tine che genera un suono acuto se si 
preme un qualsiasi tasto. Questo 
suono è più lungo se il pulsante pre¬ 
muto è un tasto direzionale (“L” o 
“;”)• 

Le linee da 3000 a 3100 stabiliscono 
in quale posizione deve apparire il 
pipistrello sullo schermo. 

Le linee 4000 e 4100 fanno aumenta¬ 
re il punteggio di 20 punti e genera¬ 
no un suono acuto (vedi meccanis¬ 
mo di gioco - funzione del tasto 
“A”). 

La subroutine 7000 - 7070 crea lo 
schermo in cui sono visualizzati il 
punteggio della partita, il punteggio 
massimo e il numero del livello da 
giocare. Questo schermo appare pri¬ 
ma dell’inizio di un nuovo livello. 
Le linee da 8000 a 8500 determinano 
la perdita di una vita e, qualora que¬ 
sta fosse l’ultima rimasta, mandano 
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Listato 1. Il programma BASIC Death. 


0 REM 


********************************* 
********* ********* 


1 REM ********* 

********* 

2 REM ********* 

********* 

3 REM ********* 

********* 


"DEATH" 

BY 

LUCA MARRAS 


********* 

********* 

********* 

********* 

********* 

********* 


4 REM ********************************* 

9 POKE80 8,22 5 : REM DISINSERIMENTO DEL 

TASTO RUN STOP 

10 POKE5 32 80,0 :POKE532 81,0 :PRINT"[<1CLR> 
]":V=532 4 8 :X = 150:Y=140 :DIMDI$(12,2) : POKE 
V+23,4 

13 GA$="GAME OVER":PRINT"[<9CRSR D>][<1G 
RN>]VIDEOGAME FOR THE COMMODORE 64" 

15 POKEV+41,5 :X2=X:POKEV+29,12 :POKE204 3 , 
13 :POKEV+ 7,140 :POKEV+4 2,11:POKEV+27,255 
17 DIMDI(62):DIMD2(62):DIMD3(62):POKEV+2 


1,0 

20 FORP=1T012:READDI$(P,0) :NEXT:POKEV+43 
,4 

30 FORP= 0TO62 :READDI(P) :POKE832+P,DI(P) : 
NEXT 

35 FORP = 0TO62:READD2(P) :POKE896+P,D2(P) : 
NEXT 

37 FORP = 0TO62 :READD3(P) :POKE960+P,D3(P) : 
NEXT 

38 FORP=1T012:READDI$(P,2):NEXT:FORP=ITO 
9 : READN1(P) ,N2(P) ,DU(P) :NEXT 

4 0 POKE204 2,13:POKE204 3,15:POKE204 4,15 
50 SI=54272:FORP=0TO2:FL(P+l)=SI+P*7:FH( 
P+l)=SI+P*7+1:TL(P+l)=SI+P* 7 + 2 

5 5 TH(P + l)=SI + P*7 + 3:W(P+1)=SI+P*7 + 4 :AA(P 
+ 1)=SI+P*7 + 5:HH(P+l)=SI+P*7 + 6 :NEXT 

57 FORP=1T03:POKEW(P),0:NEXT 

60 VL=SI + 24:POKEVL,15 :POKEAA(1) ,0*16 + 6:P 

OKEHH(l),0*16+0:POKETL(2),15 

65 POKEFH(l) ,4 :POKEFL(1) ,90 :POKETH(2) ,15 

:POKEAA(2) ,0*16 + 8 :POKEHH(2) ,0*16 + 0 

67 POKEFH(2) ,69:POKEFL(2) ,157 :POKEAA(3) , 

0*16+10:POKEHH(3),4*16+2 

70 POKETL(3) ,100 :POKETH(3) ,10 :POKEFL(3) , 
100 :POKEFH(3) ,20 

80 Q=0:NT=12 :NS = 0: 1 = 2 :SG=1:UD = -1:RE = 5000 
: AU = 0 


81 PRINT"[<1CLR>][<21CRSR D>][<1ARA>](C) 
1984 L.M.S. - DESIGNED BY L. MARRAS" 

82 PRINT"[<1H0ME>][C18CRSR D>][<1CYN>]PU 
SH 'Fi' TO BEGIN":POKE198,0 

83 GOSUB1400 0 :GOSUBl3000 :GOTOl5000 
8 4 GOTO8 3 

85 GOSUB7000 

90 PRINT"[<1CLR>]":POKEW(3),0:POKEW(3),1 


29 :FORP=ITO10 :1FPEEK(V+31)=4THENK=K 

95 NEXT:PRINT"[<20CRSR D>]":POKEV+16,0 :P 

OKE198,0:X=150:X2=X:POKEV+4,X2 

97 POKEV+21,4 

100 CO=INT(RND(0)*15+1) 

110 ONCOGOSUB30000,30010,30020,30030,300 
40,30050,30060,30070,30080,30090,30100 
115 IFCCK12THEN130 

120 ONCO-11GOSUB30110,30120,30130,30140 
130 SP=INT(RND(1)*31+1) 

140 FORP=1TONT 
150 PRINTTAB(SP) ; 

155 GETA$:IFA$< >""THENGOSUB2000 

170 POKEV+4,X2 :POKEV+5,Y:POKEV+41,INT(RN 

D (2)*15 + 1) 

175 IFPEEK(V+31)=4THEN8000 
177 POKEW(1) ,0 :POKEW(1) ,33 
180 PRINTDIS(P,1+UD):NEXT 
185 NS = NS+1 : IFNS = 50 + AUTHEN11000 
190 GOTOIOO 

1000 DATA"[<1RVS>] t<2CRSR R>] 

1010 DATA"[<1RVS>](<1CRSR R>] 

1020 DATA"[<1RVS>]! [<1RVS OFF>]! 

Il 

1030 DATA"[<1RVS>][<1CRSR R>] [<1CRSR R 
>] [<1CRSR R>] " 

1040 DATA"[<1RVS>][<1CRSR R>] [<1RVS 
OFF>][<1CHR$(169)>][<1CHR$(223)>][ClRVS 
>1 " 

1050 DATA"[<1RVS>][<2CRSR R>] " 

1060 DATA"[<1RVS>][<2CRSR R>]![<2CRSR R 
>][<1RVS OFF>]!" 

1070 DATA" [<1CHR$(182)>][<1RVS>] [<1 
RVS OFF>][<1CHR$(181)>)" 

1080 DATA" " 

1090 DATA" " 

1100 DATA" " 

1110 DATA" " 

1500 DATA0,0,0,0,255,0,63,255,252,127,25 
5,254,125,255,190 

1510 DATA126,255,126,127,126,254,124,189 

,62,124,219,62,31,255,252 

152 0 DATAI5,2 55,24 0,7,2 5 5,224,3,66,192,3 

,66,192 

1530 DATA3,66,192,3,66,192,1,0,128,1,255 
,128,0,126,0,0,0,0,0,0,0 

1600 DATA0,60,0,0,60,0,0,60,0,0,60,0,0,6 
0,0 

1610 DATA31,255,248,63,255,252,31,255,24 
8,0,60,0,0,60,0 

1620 DATA0,60,0,0,60,0,0,60,0,0,60,0,8,6 
0,16 

1630 DATA8,60,16,28,60,56,8,60,16,8,60,1 
6,8,60,16,8,60,16 

1700 DATA0,0,0,0,0,0,0,0,0,0,0,0,224,24, 
7 

1710 DATA248,60,30,2 52,60,62,62,60,12 4,6 
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Seguilo listato Death. 

3,24,252,31,255,248 

172 0 DATA31,255,248,31,2 55,24 8,7,255,224 
,7,255,224,3,231,192 

173 0 DATAI, 195,128,1,129,128,0,0,0,0,0,0 
,0,0,0,0,0,0 

1800 DATA"[<1RVS OFF>][<3CRSR R>][<1CHR 
$(219)>] " 

1810 DATA" [<1RVS OFF>][<3CRSR R>][<1CHR 
$(194)>] " 

1820 DATA"[<1RVS OFF>][<2CRSR R>][<1CHR 
$ (213)>] [<2CHR$(195)>] [<1CHR$(201)>]" 
1830 DATA"[<1RVS OFF>j[<2CRSR R>][<1CHR 
$ (194)>]**[<1CHR$(194)>]" 

1840 DATA"[<1RVS OFF>][<2CRSR R>][<1CHR 
$ ( 194)>] [<1CHR$(194)>]" 

1850 DATA" [<1RVS OFF>][<2CRSR R>][<1CHR 
$ ( 194)>] [<1CHR$(194)>]" 

1860 DATA"[<1RVS>][ClCRSR R>][<1CHR$(16 
9)>] [<1CHR$(223)>]" 

1870 DATA" [<1RVS>][<1CHR$(169)>] [ 

<1CHR$(223)>]" 

1880 DATA"[<lRVS OFF>][<1CHR$(204)>][<6 
CHR$(175)>][<1CHR$(186)>]" 

1890 DATA" " 

1895 DATA" " 

1897 DATA" " 

1900 DATA21,237,400,17,103,400,21,237,40 
0,26,20,400 

1910 DATA29,69,100,26,20,100,23,59,100,1 

9,137,100,17,103,600 

2000 IFA$ = "L"THENK=-10 :GOSUB2500 

2 010 IFA$ = "; "THENK= + 10:GOSUB2 50 0 

2020 X=X+K 

2030 IFX< 30THENX=X-K 
2035 X2=X 

2 04 0 IFX>255THENX2=X-255 :POKEV+16,21 :EN= 
1: IFX2>3 5THENX=X-K:X2=X-2 55 
2 0 50 IFEN = lANDX< = 2 55THENX2 = X:POKEV+4,X2: 
POKEV+16,0:EN=0 

2060 RN=INT(RND(2)*50+1):IFRN=26THENGOSU 
B3000 

2070 IFRN=25THENGOSUB3200 
2075 IFA$ < >"A"THEN20 90 

2080 IFPEEK(V+30)> OTHENGOSUB4 00 0 : GOTO2 0 9 
0 

2085 POKEW(3),129 
2090 K=0:GOSUB2500 
2100 RETURN 

2500 POKEW(2),0:POKEW(2),65:RETURN 
3000 POKEV+6,XNT(RND(2)*220+30):POKEV+21 
,12 

3100 RETURN 

3200 POKEV+21,4 :POKEW(3) ,129 :FORU=ITOl0 
3210 IFPEEK(V+31)=4THENK=K 
3220 NEXT:RETURN 

4000 Q=Q+20:POKEW(3),0:POKEW(3),33 
4100 RETURN 

7000 POKEV+21,0 :OC = l:POKEW(2) ,0:POKEW(2) 
,33 

7010 PRINT"[<1CLR>][<1YEL>][<22CRSR R>][ 
<1RVS>]STAGE"SG:PRINT 


7020 PRINT"[<22CRSR R>][<1ARA>]READY !" 
7030 PRINT"[<1H0ME>][<1BLU>][<1CHR$(207) 
>][<19CHR$(183)>][<1CHR$(208)>]" 

7035 PRINT"[<1CHR$(165)>]SCORE: "Q 

7040 PRINT"[<1CRSR U>][<20CRSR R>][<1CHR 
$(167)>] " 

7045 PRINT"[<1CHR$(204)>)[<19CHR$(175)>] 
[<1CHR$(186)>]" 

7046 PRINT"[<1ARA>][<1CHR$(207)>][<19CHR 
$(183) >] [<1CHR$(208)>]" 

7 04 7 PRINT"[<1CHR$(165)>]HI-SCORE :"HI 

7048 PRINT"[<1CRSR U>][<20CRSR R>][<1CHR 
$(167)>] " 

7049 PRINT"[<1CHR$(204)>][<19CHR$(175)>] 
[<1CHR$(186)>]":PRINT"[<1CYN>][<4CRSR D> 
]":GOSUB13000:OC=0:POKEW(2),0 

7050 FORP=1T07000 :NEXT 

7060 POKE2042,13 :POKE2043,15 
7070 RETURN 

8 0 0 0 POKEW(3) ,0 :POKEFH(3) ,9 :POKEFL(3) ,25 
0 : POKEHH ( 3) ', 0*16 + 2 : POKEW (3) ,129 

804 0 POKE2 04 2,14 :POKE204 3,14 :IFQ>RETHENR 

E=RE+5000:I=I+l:GOSUB12500 

8050 I=I-1:IFI=-1THEN10000 

8060 FORP = 2 00TO2 0STEP-2 0 :POKEW(2) ,0:POKE 

FH(2) ,P:POKEW(2) ,17 :FORU=1TO100:NEXT 

8070 NEXT:POKEW(2),0:POKEFH(2),69 

8100 PRINT"[<1H0ME>] 

H • 
t 

8110 PRINT" 

"; : IFUD = -1THENSK$="SKULLS" 

8115 PRINT" 

":IFUD = + 1THENSK$ = "TOMBS" 

8120 PRINT"[<lHOME>][<1RVS>][<1PUR>] 
SCORE ","LIFES",SK$ 

8130 PRINTQ,,1+1,50+AU-NS 
8410 FORU=1T03000 :NEXT 

8420 POKE2042,13:POKE2043,15:POKEFH(3),2 
0 :POKEHH(3) ,4*16 + 2 
8500 GOTO90 

10000 FORP=250T010STEP-20:POKEW(3),0:POK 
EFH(3),P:POKEFL(3),P:POKEW(3),33 
10010 FORU=lTO50:NEXTU,P:POKEW(3),0:PRIN 
T"[<1PUR>]" 

10020 FORP=lT09 

10030 PRINT"[<1H0ME>][<10CRSR D>][<15CRS 
R R>]"MID$(GA$,1,P) 

10040 FORU=lTO40:NEXTU,P 

10045 PRINT"[<1H0ME>][<1RVS>]SCORE"Q 

10050 FORP=lTO3000:NEXT 

10060 IFQ>HITHENHI=Q:GOSUBl2000 

10065 POKEFL(3) ,100 :POKEFH(3) ,20:POKEHH( 

3),4*16+2:POKEV+21,0 

10070 GOTO80 

11000 F0RP=1T03:P0KEW(P),0:NEXT 
11010 PRINT"[<1CLR>][<1CYN>]" 

11020 FORP=ITO9 :PRINTDI$(P,0) ,,DI$(P,2) : 
NEXT 

11030 POKEV+6,0 :POKEV+7,60 :POKEV+8,0 :POK 
EV+9,50 :POKEV+21,24 

11040 FORP=0TOl50:POKEV+6,P:POKEV+8,P+10 
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NUOVISSIMI 
Per Commodore 64 

Codice 3 

Avete mai avuto la vita di un’altra 
persona tra le vostre mani? Cosa 
fareste se vi capitasse di ricevere una 
disperata richiesta di aiuto? 

In questa situazione avrete bisogno di 
tutto il vostro sangue freddo, perché un 
uomo sta morendo, e voi siete gli unici 
che possono aiutarlo. 

Alle vostre conoscenze mediche, ma 
soprattutto al vostro buonsenso, il 
compito di risolvere i guai, in lotta 
contro le difficoltà di comunicazione, la 
malattia e il tempo. 

Estremo realismo per un gioco che è 
anche un modo per acquisire 
un'utilissima esperienza di pronto 
soccorso nonché controllo dei propri 
nervi. 

Disco o cassetta Lit. 30.000 
TERRAGON 

Tattica e strategia tra le stelle, in una 
guerra che, per non distruggere la terra 
in un olocausto nucleare, diventa una 
corsa selvaggia all'espansione nello 
spazio. 

Divenuti comandanti di una supernave 
del futuro dovrete esplorare e 
colonizzare lo spazio, tra pericoli di alieni 
buchi neri, pianeti fantasma, distorsioni 
magnetiche ed altri ancora, starà 
all'intelligenza con cui avrete costruito il 
calcolatore di bordo, oltre che alla 
vostra velocità di reazione ed abilità di 
manovra, il risultato finale. 

Da uno a quattro giocatori per un gioco 
che unisce costruzione logica e 
possibilità tattiche ad un livello pari a 
quello degli scacchi 3-D con una elevata 
facilità di apprendimento. 

Disco o cassetta Lit. 30.000 

Come sempre disponibili: 

- ALTO MEDIOEVO 

Gioco di simulazione economica 
in un ambiente feudale. 

Da 1 a 9 giocatori. 

Disco o cassetta Lit. 30.000 

- ATOMO 

Una vera centrale atomica 
per il vostro C-64. 

Disco o cassetta Lit. 30.000 

- HANOI + OTHELLO 

Disco o cassetta Lit. 30.000 

- HIDDEN CODE + BIORITMI 
Disco o cassetta Lit. 30.000 

- BLACK JACK 

Disco o cassetta Lit. 30.000 

- DATA BA.SE SORG. 

Programma sorgente per la 
creazione di archivi, usa files relativi 
con catalogo sequenziale. 

Lunghezza e numero record definibili 
dall'utente. 

In Basic non protetto con istruzioni. 

Solo dischetto Lit. 50.000 



Realizziamo programmi su 
commissione a seconda 
delle vostre esigenze su: 


COMMODORE VIC 20 
COMMODORE C-64 
OLIVETTI MIC 
OLIVETTI M20 
IBM PC 


Bfl.SE 

SOFTWARE HOUSE 
Casella Postale 4-13055 
Occhieppo Inferiore (VC) 

Tel. 015/592730 


Ricco package di programmi 
gestionali (fatturazione, 
magazzino, condominio ecc.) 


A vostra disposizione per: 

SOFTWARE APPLICATIVO 
AUTOMAZIONE DI PROCESSO 
SOLUZIONE DEI VOSTRI 
PROBLEMI 

CORSI BASIC INDIVIDUALI 
E DI GRUPPO 




Spsdlre in busta chiusa a: 

BA.SE t.n.c. - Casella Postale 4 
13055 Occhieppo ini. (VC) 


Nome e Cognome _ 

Indirizzo _ 

Cap-Città _ 

Vie 20 □ C 64 □ IBM PC □ 

Ordino n°_ D Disco 

Ordino n°_□ Disco 

Per un totale di Lire _ 


TILANDIA 

Il re di Tilandia si deve assentare per 
quattro anni, e vi lascia in custodia il suo 
regno. 

Ma, una volta alle prese con i regali 
grattacapi, scoprirete che fare il re non 
è poi tanto rilassante. 

Attenti a guerre, amministrazione del 
territorio, e malcontento popolare, 
perché potrebbe succedervi di svegliarvi 
con un cappio per cravatta tra i 
contadini in rivolta. 


Cassetta 


Lit. 25.000 


SUPERBOWL 

Tutti avranno prima o poi sognato di 
poter far parte di una squadra di football 
americano che sta per giocare alla finale 
del campionato. 

Bene, il vostro Texas vi da ora la 
possibilità di essere il qarterback, il 
regista della squadra, senza rischiare 
neppure un graffio. Ma attenzione, è 
proprio lui a giocare per la squadra 
avversaria. 


Cassetta 


Lit. 25.000 


LABIRINTO 3-0 

Un labirinto tridimensionale da cui 
cercare di uscire il più rapidamente 
possibile, perché all'uscita... 

Cassetta Lit. 25.000 

SPACE TI/99 

Vieni eletto comandante della 
spazionave Texas, ma devi prima 
trovare, e poi distruggere, le navi 
nemiche lungo una scacchiera di 64 
costellazioni, usando tutta la tua 
intelligenza per organizzare la caccia in 
modo da sfruttare al meglio la tua 
limitata autonomia. 

Cassetta Lit. 25.000 

POKER + ROULETTE 

ComDinazione di due giochi più che 
classici in cui il calcolatore svolge il ruolo 
di croupier. 

Cassetta Lit. 30.000 

NUOVISSIMO PER ATARI BOO • 
600 XL - 800 XL 

ALTO MEDIOEVO 

Finalmente anche per Atari il gioco che 
ha fatto impazzire i commodoriani... 

In tutto e per tutto identico alla versione 
C-64. 

Cassetta Lit. 30.000 


_Provincia_ 

MIO □ M20 □ Alari □ Texas □ 

□ Cassetta_ 

□ Cassetta_ 


Pagamento □ Allegato assegno non trasf. sped. celere □ Contro assegno + spese postali 






















Death per C 64 


Seguito listato Death. 

: NEXT 

11050 FORP=60T0200:POKEV+7,P:POKEV+9,P-1 
0 :NEXT 

11060 PRINT"[<1H0ME>][<21CRSR D>]"TAB(10 
)"[<1ARA>]BONUS [<1R.C.>]1000 [<1ARA>]P0 
INTS":Q=Q+1000 

11070 FORP=1T09:POKEW(3),0:POKEFH(3),Nl( 
P):POKEFL(3),N2(P):POKEW(3),33 
11080 FORU=lTODU(P):NEXT:NEXT 
11085 POKEHH(3),4*16+2 

11090 UD=-UD:SG=SG+1:AU=AU+10:NT=NT-2:IF 
NT<8THENNT=12 

11095 IFUD=1ANDNT=8THENNT=9 

11100 PRINT"[<1CLR>]":NS = 0:POKEV+21,4 : PO 

KEW(3) ,0 :POKEV+7,140:G0T085 

12000 PRINT"[<1CLR>]WHAT'S YOUR NAME?[<2 

CRSR D>]":HI$="":TM=0:LT=0:ID=0:POKEV+21 

,0 :POKE198,0 

12010 GETA$ 

12020 TM=TM+1:1FTM= 4000THENRETURN 

12030 IFA$ = ""THEN12010 

12035 IFASC(A$)=13THENRETURN 

12040 IFASC(A$)=20THENID=ID+1:IFID<=LTTH 

ENPRINTA5;:HI$=HI$+A$:GOTO12010 

12050 IFASC(A$)=148ANDID>LTTHEN12010 

12055 IFA$ = " "THENHI$ =HI$+A$:PRINTA$; :LT 

= LT+1:1FLT=15THENRETURN 

12057 IFA$=" "THEN12010 

12060 IFASC(A$)< 650RASC(A$)>90THEN12010 
12070 LT=LT+1:HI$=HI$+A$:PRINTA$;:IFLT=1 
5THENRETURN 
12080 GOTO12010 

12500 POKE53280,14 : :FORU=lTO300:NEXT:POK 
E53280,0:RETURN 
13000 IFOC=1THEN13010 

13005 PRINT"[<1H0ME>][<1RVS>]HI-SCORE:" 
HI,HI$ 

13010 PRINT"[<5CRSR D>]" 

13020 PRINT"[<1RVS>] [<1CHR$(223)>][< 

lCRSR R>] [<1CRSR R> ] [<1CHR$(169)>] 

[<1CHR$(223)>][<1CRSR R>] [<1CRSR R>] 



[< 2CRSR R>] " 

13030 PRINT"[<1RVS>] [<2CRSR R>] [<1CRS 
R R>] [<4CRSR R>] [<2CRSR R>] [<2CRSR R> 

] t [<1RVS OFF>] ! [<1RVS>] [<2CRSR R>] [<2 
CRSR R>] " 

13040 PRINT"[<1RVS>] [<2CRSR R>] [<1CRS 
R R>] [<2CRSR R>] [<2CRSR R>] [<2CRSR 

R>)![<1RVS OFF>]![<1RVS>][<2CRSR R>] 

II 

13050 PRINT"[<1RVS>] [<2CRSR R>] [<1CRS 
R R>] [< 4CRSR R>] [<2CRSR R>] ! [<1RVS 

OFF>] ! [<1RVS>] [< 2CRSR R>] [<2CRSR R>] 

II 


13060 
CHR$ ( 
SR R> 
FF>] ! 
13070 
14000 
14010 
0040, 
14020 
14030 
0 

14040 

15000 

15010 

30000 

30010 

30020 

30030 

30040 

30050 

30060 

30070 

30080 

30090 

30100 

30110 

30120 

30130 

30140 


PRINT"[<1RVS>] [<1RVS 0FF>][<1 

169)>][<1RVS>][ClCRSR R>] [<1CR 

] [< 2CRSR R>] [< 2CRSR R>] ! [<1RVS O 

[<1RVS>] [< 2CRSR R>] [<2CRSR R>] " 

RETURN 

RN=INT(RND(1)*15+1) 

ONRNGOSUB30000,30010,30020,30030,3 
30050,30060,30070,30080,30090,30100 
IFRN<12THENRETURN 

ONRN-11GOSUB30110,30120,30130,3014 


RETURN 
GETA$: I 
G0T085 
PRINT"[ 
PRINT"[ 
PRINT"[ 
PRINT"[ 
PRINT"[ 
PRINT"[ 
PRINT"[ 
PRINT"[ 
PRINT"[ 
PRINT"[ 
PRINT"[ 
PRINT"[ 
PRINT"[ 
PRINT"( 
PRINT"[ 


FA$ < >""THEN84 


<1WHT>]" 
<1RED>]" 
<1CYN>]" 
<1PUR>]" 
<1GRN>]" 
<1BLU>]" 
<1YEL>]" 
<1ARA>]" 
<1MAR>]" 
<1R.C.>] 
<1G.1>] " 
<1G.2>] " 
<1V.C>]" 
<1AZ Z >]" 
<1G.3>] " 


: RETURN 
: RETURN 
: RETURN 
: RETURN 
: RETURN 
: RETURN 
: RETURN 
: RETURN 
: RETURN 
; : RETURN 
: RETURN 
: RETURN 
: RETURN 
: RETURN 
: RETURN 


I tasti grafici e speciali sono stati racchiusi tra i 
simboli < >, all’interno di parentesi quadre e 
preceduti da un numero che specifica quante volte 
occorre digitare quel determinato carattere. Es. 
[<8CRSR D>], digitare per 8 volte il tasto di 
spostamento verso il basso del cursore. Per i carat¬ 
teri grafici viene indicato il codice ASCII corri¬ 
spondente; consultare il manuale per la conversio¬ 
ne. 


alla linea 10000, dove viene determi¬ 
nata la fine della partita. 

Le linee da 10000 a 10070 determi¬ 
nano la fine della partita e, se il pun¬ 
teggio raggiunto è superiore al re¬ 
cord registrato nella variabile HI, 
mandano alla routine 12000- 12080. 
La linea 10070 manda il programma 
allo schermo di presentazione, per 
iniziare una nuova partita. 

Le 1 1000 - 11 100 vengono eseguite 
alla fine di ogni livello, e provvedo¬ 
no a visualizzare il bonus di 1000 
punti, ad aggiornare il punteggio e 
ad aumentare la difficoltà per il li- 
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vello successivo. Le linee 11070 e 
11080 suonano una musichetta che 
sottolinea il bonus. 

La subroutine 12000- 12080 aggior¬ 
na le variabili HI e HI$, dove sono 
registrati il massimo punteggio e il 
nome del giocatore che l’ha realizza¬ 
to. 

La linea 12500 colora di blu per po¬ 
chi attimi il bordo dello schermo: 
questo significa che si è guadagnata 
una vita extra. 

Le linee comprese fra 13000 e 13070 
creano lo schermo di presentazione 
con la scritta Death. 


Le linee 14000 e 14040 generano un 
numero casuale in base al quale vie¬ 
ne modificato il colore della scritta 
Death nello schermo di presentazio¬ 
ne. 

Le linee 15000 e 15010 bloccano l’i¬ 
nizio del gioco se non si preme il 
pulsante “FI”. 

Le linee 30000 - 30140 contengono 
15 subroutine in ognuna delle quale 
è memorizzato uno dei 15 colori di¬ 
sponibili sul Commodore 64. Que¬ 
ste subroutine vengono utilizzate 
per la colorazione dei teschi, delle 
tombe e della scritta Death. ■ 















Per la sete disoft 



I personal computer della serie LEMON II, JEN PC 1, PC 2 e JEN PC 3 Biprocessore, sono grandi compatibili. 
L’accesso a tutto il soft CP/M, 20.000 programmi, è la loro caratteristica più evidente. 

Ma sono garanzia, assistenza e un prezzo conveniente a fare di LEMON il una serie di computer realmente vincenti. 



MODELLO 

JEN PC 1 

JEN PC 2 

JEN PC3 

PROCESSORE 

6502 

6502 

6502/Z80 

RAM 

48K 

64K 

64 K 

EPROM INTERPRETE 

10K 

10K 

10K 

EPROM MONITOR 

2K 

2K 

2K 

SISTEMA OPERATIVO DOS 

S 

S 

S 

SISTEMA OPERATIVO CP/M 

E 

E 

S 


LEM JN II 

il grande compatibile 


Distribuito dalla Belton Electronics s.r.l. - Zona Industriale 62010 Montelupone (MC) - Italia - Tel. 0733/586423-24 Telex 600071 JENSPA I - Divisione Informatica della Jen Elettronica s.r.l. 
















Indagine su alcune 
— strane figure_ 


Siete sicuri di saper rappresentare 
il grafico di una funzione? 

di Giulio Morpurgo 


Introduzione 

S copo di questo articolo è mostrare alcune 
figure, a prima vista inattese, che si ottengo¬ 
no eseguendo un semplice programma, e 
spiegare i motivi della loro comparsa. Poche formule 
matematiche e alcuni facili concetti intuitivi sono 
sufficienti a giustificare qualitativamente e quantita¬ 
tivamente le caratteristiche di queste strane figure. La 
conoscenza di questi concetti è utile per chiunque 
debba rappresentare grafici di funzioni con il calcola¬ 
tore. 


Analisi delle simmetrie 

Tutto cominciò quando, facendo girare un mio 
programma per grafici tridimensionali, ottenni la 
figura 1. La funzione della quale volevo disegnare il 
grafico era z — sin (r 2 )/r 2 (dove r 2 = x 2 + y 2 ). Questa 
funzione, poiché r è l’unica variabile, ha una simme¬ 
tria circolare intorno all’origine delle coordinate x e 
y, che nel grafico si trova al centro della figura. 
Simmetria circolare vuol dire che, se si traccia una 
circonferenza di raggio R qualsiasi con centro nell’o¬ 
rigine, su tutti i punti della circonferenza la funzione 
ha lo stesso valore. 

Sul grafico ottenuto dal programma si può osservare 
molto bene la simmetria circolare nella zona centrale 
della figura, mentre si vede che ai bordi questa sim¬ 
metria diventa confusa e non è più riconoscibile. 
Sembra quasi che le piccole gobbe, che si vedono 
chiaramente, prendano il sopravvento su di essa, e 
inoltre che queste gobbe tendano a disporsi circolar¬ 
mente intorno a un punto (in alto, fuori dallo scher¬ 
mo) diverso dall’origine. La situazione è simile a 
quella della figura 3b, nella quale si vede come la 
struttura ad anelli circolari concentrici intorno al 
centro della figura manifesti delle irregolarità verso i 
bordi del disegno. 

46 



Figura 1. Grafico tridimensionale della funzione sin 
(r 2 )/r 2 . Si può notare come le “gobbe” nella parte alta 
della figura sembrino essere disposte circolarmente 
intorno ad un punto più in alto de! margine de! disegno. 


Come mai la simmetria circolare è in parte scom¬ 
parsa? Dapprima pensai ad una illusione ottica; poi, 
riflettendo un momento, cominciai a sospettare qua¬ 
le fosse il motivo di questa inattesa rottura di simme¬ 
tria; questo sarà l’oggetto della discussione seguente. 

Per prima cosa, conviene cercare di rappresentare 
meglio tutti i particolari della situazione. Mi limiterò 
a considerare la “proiezione” della funzione sin (r ) 
sul piano x, y, rappresentandone il segno con un 
puntino nero se positivo, bianco se negativo; per fare 
ciò userò il programma del listato 1, il quale, definita 
una funzione z all’interno della subroutine 1000, con¬ 
sente di rappresentare il segno su un settore del piano 
xy, delimitato dalle rettex = XM,x = — XM,y = YM, 
y = — YM (figura 2a), dove i valori di XM e di YM 
sono ogni volta scelti e dati in input al programma. 
Com’è ovvio, ogni funzione può essere calcolata solo 
in un numero finito di punti: questi punti sono rap¬ 
presentati dalle intersezioni delle linee tratteggiate 
orizzontali e verticali nel reticolo di figura 2b, che è 
solo una porzione del reticolo completo 216x216. Il 
valore della funzione verrà dunque calcolato esclusi¬ 
vamente in questi punti; e, come ripeto, ciascuno dei 
216x216 puntini visualizzati sullo schermo è colora¬ 
to in nero se il valore della funzione in quel punto è 
maggiore o uguale a 0, è invece bianco se la funzione è 
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negativa. 

La distanza tra un punto del reticolo ed il successivo 
vale A x = 215/2XM nella direzione dell’asse x, e A y 
= 215/2YM nella direzione dell’asse y. Percomodità, 
d’ora in poi sarà sempre XM = YM, e quindi A x = A 

y- 

Per semplificare una varietà di situazioni, riporto qui 
di seguito le figure 3a-3p, ottenute usando la funzione 
z = sin (r ) e variando sia l’esponente b che il parame¬ 
tro XM. 

La figura 3a è un buon esempio di quello che ci si 
aspetterebbe veder comparire sul video; la proiezione 
di una funzione oscillante in segno in dipendenza 
della sola variabile r, e con periodo di oscillazione 
sempre più corto al crescere di r. 

Osservando però le altre figure, soprattutto dalla 
figura 3 c in avanti, ci si accorge che sul video avven¬ 
gono cose stranissime, totalmente diverse da quello 
che ci si aspettava. È come se, invece della funzione 
sin (r n ), il programma ne usasse un’altra, compieta- 
mente diversa. 

Dall’osservazione di queste figure si nota come la 
simmetria circolare, e cioè la struttura ad anelli con¬ 
centrici attorno al centro delle figure, è perduta mano 
a mano che ci si allontana dall’origine. Ciò è tanto 
più evidente quanto più è grande XM (e, in ultima 
analisi, quanto più grande è A x, il passo del reticolo 
di figura 2b). 

Al posto della vecchia simmetria intervengono altri 
tipi di simmetrie e di regolarità, che adesso analizzerò 
in dettaglio. 

Tre cose balzano subito evidenti agli occhi: 

1) in ognuna di queste figure, anche se la simmetria 
circolare è andata perduta, è rimasta una simmetria 
tale che, invertendo la figura rispetto a uno degli assi 
o ad una diagonale, la figura non cambia; 

2) oltre alla simmetria circolare che si può osservare 
al centro di ogni figura, vi sono, in alcune di queste 
figure, altre zone localmente simmetriche distribuite 
con una certa regolarità. Queste zone hanno dimen¬ 
sioni uguali a quella centrale quando b = 2, minori 
quando b > 2, e maggiori quando b < 2; 

3) in alcune di queste figure, tra le varie zone a 
simmetria circolare bene evidenti, se ne notano altre 
meno definite, e si può osservare come anche queste 
abbiano una distribuzione regolare. 

Mi propongo ora di dare una spiegazione a tutte 
queste apparenti stranezze. Per far questo cercherò di 
chiarire successivamente i seguenti punti: 

1) come mai la simmetria circolare è rotta in modo 



Figura 2a. La 
parie 

tratteggiala 
V7 ym del piano x, y 
rappresenta il 
„ campo sul 
quale viene 
rappresentato 
il segno della 
y= -VA funzione data. 


Figura 2b. 
I punti di 
intersezione 
delle linee 
orizzontali e 
verticali del 
reticolo 
tratteggialo 
sono i punti 
per i quali il 
programma 
calcola il 
valore della 
funzione. A x è 
la variazione 
in x al passare 
da un punto 
del reticolo al 
successivo, e 
vale A x = 2 
★ XM/215. 






Y 

















A X 










X 












































:.yt 

z'' i 




v. 









\ 

| 

f 








V... 


















j 









/ i 

X 
; \ 







. 

/ 

i 

% 



.Hu* 

.Y 

/ ; 

! 


Figura 2c. 

I punti del 
reticolo che 
corrispondono 
ad un dato 
valore di r 
sono pochi. 
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Figura 2d. Un reticolo di questo tipo 
sarebbe più adatto per rappresentare 
una funzione a simmetria circolare. 


Figura 3a-p. Le figure ottenute fa¬ 
cendo girare il programma 1 con di¬ 
versi valori di b e di XM. 





48 



































































Libri firmati JACKSON 


VOI E IL VOSTRO 
COMMODORE 64 

Un esaudiente vademecum 
sulla programmazione in 
BASIC dal Personal ad oggi 
tra i più diffusi. 

Facile, brillante ricco di 
programmi verificati, questo 
è un prezioso volume sia 
per i neofiti che per gli 
utilizzatori più esigenti. 

256 pag. L. 22.000 
Cod. 347 B. 


PROGRAMMAZIONE 
DELLO ZX SPECTRUM 

Aggiungete suono e colore 
ai vostri programmi, 
scoprite lo SPECTRUM 
negli affari e nell'istruzione, 
giocate e imparate a 
scrivere i giochi, disegnate 
figure in 3 dimensioni. 

212 pag. L. 18.000 
Cod. 531 D. 


APPLE MEMO 

Sintassi dei comandi, codici 
dei caratteri, messaggi di 
errore, linguaggio 

macchina, indirizzi utili. 

Un libro destinato a stare in 
permanenza a fianco del 
vostro Apple. 

146 pag. L. 15.000 
Cod. 340 H. 


BASIC SU APPLE 
programmi In pochi minuti 

65 programmi pronti che vi 
risolveranno problemi che 
vanno dalla “economia 
domestica”, alle 
applicazioni commerciali, ai 
calcoli statistici, alla 
creazione degli archivi. 

184 pag. L. 14.000 
Cod. 532 H. 


APPLE TUTTO FARE 
Collegamenti e progetti 

Questo libro è stato scritto 
per chiunque voglia capire 
come l’APPLE e gli altri 
home computer, possano 
essere interfacciali con il 
mondo esterno. 

208 pag. L. 18.000 
Cod. 334 D. 


PET/CBM GUIDA 
ALL’USO VOL. 1 e VOL. 2 

È la versione italiana del 
famosissimo testo 
americano: "PET/CBM 
Personal Computer Guide” 
ed è presentato in due 
volumi data l’ampiezza e la 
profondità degli argomenti 
trattati. In questo manuale 
troverete tutto ciò che è 
necessario sapere sui 
calcolatori COMMODORE. 
VOL 1 250 pag L. 20.000 
cod. 332 P 

VOL 2 282 pag. L. 22.500 
cod. 333 P 


La Biblioteca 
che fa testo 

_ CEDOLA DI COMMISSIONE LIBRARIA 

VOGLIATE SPEDIRMI 


n° copie 

codice 

Prezzo unitario 

Prezzo totale 














Totale 


I O Pagherò contrassegno al postino il prezzo indicato più L. 2000 per contributo fisso 
spese di spedizione 

| Condizioni di pagamento con esenzione del contributo spese di spedizione: 

□ Allego assegno della Banca □ Allego fotocopia del versamento 

■ su c/c n. 11666203 a voi intestato 


□ Allego fotocopia di versamento 
su vaglia postale a voi intestato 


GRUPPO 

EDITORIALI 

JACKSON 


Attenzione compilare per Intero 
la cedola 

ritagliare (o fotocopiare) e spedire 
in busta chiusa a: 

GRUPPO EDITORIALE JACKSON 

Divisione Libri 

Vìa Rosellini, 12 - 20124 Milano 


Nome 


Cognome 


Città 


Prov 


Spazio riservato alle Aziende. SI richiede l’emissione di fattura 


Partita I.V.A. 


ORDINE 
MINIMO 
L. 50.000 







































Indagine su alcune 
_strane figure 


così vistoso; 

2) come mai rimane una simmetria quadrata; 

3) qual’è la ragione per cui si hanno, in parecchi casi, 
simmetrie circolari centrate in punti diversi dall’ori- 
gine. 


Perché la simmetria circolare sparisce 

Il motivo di questa inattesa e impressionante rottu¬ 
ra di simmetria è legato a due fatti: 

1) il reticolo usato per rappresentare la funzione ha 
simmetria quadrata e non circolare e inoltre esso è 
discreto e non continuo (come già detto, la funzione è 
calcolata solo in 216 x 216 punti); 

2) abbiamo a che fare con una funzione (sin r ) che, 
quando b è maggiore di I, al crescere di r oscilla 
molto rapidamente in segno (cioè, preso un valore di 
r sufficientemente grande, l’intervallo A r, tale che il 
segno della funzione calcolato in r e quello calcolato 
in r + A r siano opposti, diventa piccolo a piacere). 
Nel seguito della discussione chiarirò come questi 
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due fatti provochino la stranezza delle figure. 

È conveniente partire da una osservazione; nelle figu¬ 
re (ad esempio 3c) la simmetria circolare è data da 
una serie di anelli concentrici di spessore sempre 
minore via via che ci si allontana dall’origine. Ad una 
certa distanza dall’origine lo spessore di questi anelli 
è di un solo puntino, mentre oltrepassata questa 
distanza la struttura ad anelli scompare (o meglio, ne 
compare un’altra centrata in un altro punto) e la 
simmetria circolare si rompe. 

È ovvio che non è possibile continuare a fare gli anelli 
sempre più sottili, perché la risoluzione del video (e 
del nostro reticolo, e questo è il punto essenziale) è 
discreta e non continua; la domanda che ci si può 
allora porre è questa: in che modo si dovrebbe mani¬ 
festare la simmetria circolare oltrepassata questa di¬ 
stanza dall’origine? 

Per rispondere a questa domanda, ricordando che 
le funzioni dalle quali derivano le figure 3 sono del 
tipo z = sin (t), con t = r\ analizzeremo in dettaglio 
cosa succede quando si rappresenta la funzione sin (t) 
calcolandone il valore in un numero finito di punti. 
Per fare ciò, si scelgono un certo numero di valori di t, 
che per comodità terremo equidistanti tra loro, e si 
calcola il valore della funzione in corrispondenza dei 
valori di t scelti. 

Dalle figure 6 si nota come, fino a che noi “campio- 


Seguito 
figura 3. 













































"Cara IBM, 

in un’attività come la mia 
è veramente utile 
il tuo Personal Computer?’’ 





Il Personal Computer IBM è utile in ogni caso. 
A partire proprio dalle attività che richiedono un 
organico minimo, anche di una persona sola. E’ il 
tuo caso? Allora puoi usare il Personal Computer 
IBM per ottimizzare il tuo personale rendimento 
professionale, per rendere più veloce ed efficiente 
la gestione della contabilità e per tenere sempre in 
perfetto equilibrio le entrate e le uscite. Ci sono 
centinaia di programmi già pronti che risolvono 
qualunque problema. Anche il tuo. 

Hai invece una media azienda? Le cose non 


cambiano. Col Personal Computer IBM e la sua 
unità di espansione, puoi valutare, pianificare e 
controllare il lavoro, puoi vendere e comprare più 
efficacemente e approfittare tempestivamente del¬ 
le occasioni (con la sicurezza che i tuoi dati sono 
sempre perfettamente protetti). 

E per finire, c’è un Personal Computer IBM 
anche perla grande azienda: il modello XT 370, una 
vera e propria "stazione di lavoro” indipendente, 
che puoi anche collegare all’elaboratore centrale. 
Per creare una maggiore comunicazione tra i repar- 









ti e per aiutare i manager a prendere 
sempre le decisioni migliori. 

Qualunque sia il tuo caso, i concessionari 
IBM ti stanno aspettando per mostrarti 
quanti vantaggi puoi avere dal Personal 
Computer IBM, per consigliarti sugli acqui¬ 
sti e per offrirti un servizio e un’assistenza 
sempre impeccabili. 

Cerca il concessionario IBM più vicino 
a te, nell’elenco della pagina seguente e vai a 
trovarlo. 


Ti mostrerà tutta la grande versatilità del Per¬ 
sonal Computer IBM. 

Per ricevere maggiori informazioni spedisci questo coupon a: 
IBM Italia Distribuzione Prodotti S.p.A. - Milano 2 
Palazzo Cellini - 20090 Segrate Milano 

Nome. 2 

Azienda . 
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Figura 4. Il reticolo che definisce i punti per i quali il valore della funzione 
viene calcolato è centrato intorno all’origine (figura 4a). Ciò fa si che, dato un 
punto de! reticolo, ne esistano anche altri (3 oppure 7) con lo stesso valore di r. 
Poiché la funzione scelta dipende solo da r. si ha cosi la simmetria quadrata 
descritta nel testo. 

Se decentriamo il reticolo, ad esempio spostando l’origine delle coordinate, 
questa corrispondenza si perde (figura 4b) e si perde anche la simmetria 
quadrata (figura 5). 


Figura 5. La stessa figura di 3d, ma 
questa volta il reticolo non è centrato 
nell'origine. 

Si può notare come sia andata perdu¬ 
ta la simmetria quadrata. 



Figura 6. Fino a che la distanza tra i punti che prendiamo per rappresentare la sinusoide è minore di ti (6a), questa può 
essere ricostruita senza ambiguità a partire da essi. Ma quando la distanza è anche poco maggiore di n, possiamo 
trovare un’altra sinusoide, con frequenza più bassa della prima, che passa per i punti dati; quindi essi non rappresentano 
bene la sinusoide originate. 

Si noti come nel caso in cui la distanza è vicina a n(6b), si abbia una alternanza di punti positivi e negativi, net caso in cui 
essa vale 120 o 240 gradi (figura 6c., punti rispetti vomente marcati con la croce o con il quadrato) si abbiano due punti di 
un segno seguiti da uno di segno opposto, e infine, quando la distanza vale poco più di 2 n( 6d), si abbia una lunga serie di 
punti dello stesso segno. 
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”Ed ecco chi mi garantirà 
un’assistenza qualificata per il 
Personal Computer IBM.” 

Il concessionario IBM. Un “vero esperto” di elaborazione dati che ti aiuterà a ottenere il massimo dal tuo 
Personal Computer IBM e saprà garantirti un’assistenza puntuale e un servizio efficiente e affidabile. In- 
somma, un servizio all’altezza del nome IBM. 
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VECA SPA - Ma Silvestro Sanvito. 103 - Tel. 0332 229374 
Vigevano • LOGICA INFORMATICA SRL • Ma Montegrappa, 32 - 
Tel 0381.81888 

Vimercate - DATA PROGRES SRL - Ma V Emanuele. 44/A 
Tel 039.667423 

Vimodrone • OMEGA DATA SRL - Strada Padana Sup , 317 - 
Tbl. 02.250412! 

MARCHE 

Civitanova M. - S.E.I. SRL - Ma G. D’Annunzio. 198 - 
Tel 0733.773262 

Fossombrone - SIPCOA COMPUTER SRL - Ma Agostini, 3 - 
Tel. 0721.75340 

Jesi - SYSTEM HOUSE A PR A. SRL - Vie Cavallotti. 9 - 
Tel. 0731.58743 

Moie - S E D A. SPA Pzza S Maria - Tel. 0731.70345 
Pesaro - COMPUTER & OFFICE SRL Ma Mazzini. 73 - 
Tel. 0721 64170 

PIEMONTE 

Alba - SISTEMI SRL - Ma D. Galimberti. 3/E • Tel. 0173.49871 
Alessandria - INFORMATICA SERVICE SRL - Ma Isonzo, 63 - 
Tel. 0131.445817 

Asti - HASTA DATI SNC - Ma Silvio Morando. 6/A - Tel. 0141 216.356 

Biella 

TEOREMA SRL - Ma Losana. 9 - Tel. 015.249)5 

V.I.P. COMPUTERS SRL - Via Repubblica. 39 Tel 015 27106 

Borgosesia I D.S. INF DATA SYST SRL - Male Varallo. 157 • 

Tel. 0163 25327 

Cuneo - SISTEMI SRL - Ma Giolitti. 26 - Tel. 0171.55475 
Cenola - EUROSISTEMI SPA - Bivio S S. 20/28 - Tel. 0172.68176 
Novara - ASA SRL - Corso Italia. 25 - Tel. 0321.28250 
Torino 

ABA ELETTRONICA - Via Fossati. 5/C - Tel. 011 332065 
DIVERSIFICATE VENCO SRL -C.so Matteotti. 32A-Tel 011.545525 
PROGRAMMA SPA - C.so Svizzera. 185 - Tel 011 746421 


SISTEMI SPA - C so Peschiera. 249 - Tel. 011.3358676 
SOFTEC SRL - C.so San Maurizio. 79 Tel. 011 8396444 
Verbania (Intra) - S 80 SCRL - Ma Roma, 7 Tel. 0323.41083 
Vercelli - ANALOG SNC - Via Dionisotti. 18 - Tel. 0161.61105 

PUGLIE 

Bari 

COMPUTER SHARING SUD SPA - Via Trento, .3 - Tel. 080.339177 
H.S. SYSTEMS SRL - Via Caatromediano, 131 - Tel. 080.331654 
PASED SRL - Ma Calefuti. 134/136 - Tel. 080.481488 
PUBLISISTEMI SRL Via Castromediano, 13l - Tel. 080,583943 
SIRCOM SRL - Ma della Repubblica. 67/69 - Tel. 080.364674 
Foggia MASELLI PER L’UFFICIO - Via L. Zuppetta, 355A 
Tel. 0881.78014 

Lecce • I.P.E.S. SPA - Via Oberdan, 29 - Tel 0832.33904 
Maglie - S.V.l.C. SRL - Ma V. Emanuele. 121 - Tel. 0836 21604 
Taranto - ALFA di SPORTELLI L. - Ma Medaglie d’Oro, 39 - 
Tel. 099 335558 

SARDEGNA 

Cagliari 

C. D S. SAS - Ma Sonnino. 108 - Tel. 070.650756 

DATA SISTEMI SRL - Via Lo Frasso, 6/8 Tel. 070.662541 
Olbia - C.P.S. SRL - Ma Galvani, 4 - Tel. 0789.51194 

SICILIA 

Catania 

ASIA COMPUTER SRL - Ma S. Eupilio, 13 • Tel. 095.326944 
COMPUTER SYSTEMS SRL - Via Ruggero di Luuria, 87 
Tel. 095.493777 

Messina - SO.F.IN. SPA - Ma Don Blasco. 75 - Tbl. 090.2923987 

Palermo 

SER.COM. ITALIA SRL - Ma Sciuti, 180 - Tel. 091.261041 
SI.PR EL. SRL - Ma Serradifalco, 145 - Tel. 091.577344 
TESI SRL - Ma E. Noterbartolo. 23 - T« 1. 091.260549 
Trapani - TESI SRL - Ma Palmerio Abate, 2 - Tel. 0923.20026 

TOSCANA 

Arezzo - FINITAL FIN. IT. SPA - Via Beoedeito Varchi, 59 - 
Tel. 0575.353141 

Empoli - SESA DISTRIBUZIONE SRL - Via XJ Febbraio, 24/B - 

Tel. 0571 72148 

Firenze 

DATA COOP SCRL ■ Ma di Novoli, 23/H - Tel. 055.4379868 
DISTAL SRL - Ma Parini, 46 - Tel 055 350669 
SESA DISTRIBUZIONE SRL - Lungarno Ferrucci, 19R - 
Tel. 055.6811652 

Pistoia DARIO NANNINI - Corso Gramsci, 84 
Prato - C C S. SAS - Male Repubblica. 298 - Tel. 0574 580222 
Siena - SILOG SRL - Via Sicilia, 5 - Beiverde Monteriggioni - 
Tel. 0577.54085 

Viareggio - DELPHI SRL - Ma Aurelia Sud, 39 • Tel 0584-3951,61 
TRE VENEZIE 

Bassano D/Grappa - C PE Piazzetta Poste. 9 - Tel. 0424.20395 

Belluno 

DE PRÀ SRL • Ma I. Caffi, 18 - Tel 0437 23243 
SCP. COMP SYST. SRL - Ma Feltro, 32 - Tel 0437.20826 
Bolzano - BOPAM SAS Via C Battisti. 32 - Tel 0471,30113 
Brunico - DATOR SRL - Ma Campo Tiires, h - IVI. 0474 84815 
Castelfranco Ven. - EDS SRL - Via S Pio X. 154 - Tel. 0423.490178 
Mestre - BOFFELLI F LLI C &. E SNC - Ma ninnolati, 19/21/23 - 
Tel. 041.951247 
Padova 

CERVED ENGINEERING SPA - C.so Steli Uniti. 14 - Tel. 049.760733 
S.I.C. ITALIA SRL Ma S. Pietro. 82 - Tel. 049.34394 
SYSTEM ROS SAS - P.zza Do Gasperi, 14 - Tel. 049 38412 
SO.CE DA. SPA - Ma Marsala. 29 - Ibi 049 6553H5 
S. Donà di Piave - COMPLTIME SRL - Piazza Rizzo. 63 - 
Tel 0421.2548 

Schio - LINEA 4 C.S N.C. - Ma Riva del Cristo. 4/6/8 - Tel. 

Trento 

ATR DESIGN COLL SRL - Via Torre Verde. 25 - Tel. 0451 26872 

SEDA SAS - Ma Sighele, 7/1 - Tbl. 0461 984 564 

SiGe SNC - COMPUTER SHOP - Ma Prato. 22 - Tel. 0461.25154 

Treviso 

DATUM SRL • Ma S Bona Nuova, 3 - Tel. 0422.22560 
INFORMATICA TRE SRL - Viale della Repubblica, 19 - 
Tel 0422 65993 
Trieste 

DITTA MURRI - Ma A. Diaz, 24/A - Tel. 040.733253 
SELTED SRL - Ma Fabio Filzi. 23 - Tel. 040.6I3K1 
Udine 

D. E U SRL - Ma Di Prampero, 3/7 - Tel 0432 204402 
D E U SRL - Ma Tavngnacco, 89 - Tel. 0432.482086 
Verona 

PRAGMA SOFTWARE SRL - Ma Carmelitani Scalzi. 20 - 
Tel. 045.596400 

SEVER DI G. SERENI - Ma Locatelli, IO - Tel. 045.31331 
Vicenza - ALFA DATA SRL - Ma Milano. 110 - Tel. 0444.31865 

UMBRIA 

Perugia 

PRISMA INFORMATICA SRL - Ma Campo di Marte. 4N - 
Tel. 075 71973 

PUCCIUFFICIO SNC - Ma XX Settembre. 148/C - Tel. 075 72992 
Terni DPS SRL - Ma Pacinotti, 6 - Tel 0744 58247 

VALLE DI AOSTA 

Aoste - INFORMA TIQUE SAS - 

Centre Commercial l’Amerique. S.S. 26 - Quart d'Aoste - 
Tel. 0165 765173 


l_BM Italia 

Distribuirne Prodotti St A. 









Figura 7. I diversi modi di 
passare da un punto del 
reticolo ai punto vicino: essi 
danno origine alla formula 
(LI - 1.4). 


Figura 9. Per capire come 
mai compare la zona bianca 
lungo la diagonale 
occorrerebbe analizzare anche 
la derivata dell’intervallo di 
campionamento al passare da 
un punto al vicino. 



niamo” questi valori di t in modo che la distanza tra 
l’uno e l’altro sia minore o uguale alla metà del 
periodo della funzione, cioè a n, i punti che ricaviamo 
in questo modo riescono a riprodurre bene tutte le 
oscillazioni della funzione (la sinusoide a frequenza 
più bassa che passa per i punti ottenuti è proprio 
quella che ci è servita per ricavarli) (figura 6a). Ma se 
la distanza tra un valore di t e il successivo è maggiore 
di 7i, i punti ricavati non riescono più a seguire le 
oscillazioni che la funzione compie (si può trovare 
una sinusoide con frequenza più bassa della nostra 
che passa per tutti i punti ottenuti) (figura 6b). In tale 
caso i punti che abbiamo ricavato riproducono inve¬ 
ce molto meglio le oscillazioni di un’altra sinusoide, 
con periodo più lungo di quella dalla quale li aveva¬ 
mo ricavati. 

È interessante vedere che cosa succede in due casi 
particolari: quando l’intervallo di campionamento è 
poco minore (o maggiore) di 2 tt, e quando è uguale a 
2 ti/3. 

Nel primo caso (figura 6d) il periodo della sinusoide a 
frequenza più bassa passante per i punti dati diventa 
molto grande rispetto a quello della sinusoide origi¬ 
nale, e si può osservare come vi sia un gran numero di 
punti campionati consecutivi con lo stesso segno. 

Nel secondo caso (figura 6c) si ha una distribuzio¬ 
ne regolare di due punti campionati vicini dello stesso 
segno, seguiti da uno di segno opposto, e così via. 

Abbiamo allora visto come, quando l’intervallo di 
campionamento è troppo grande, non è possibile 
riprodurre bene l’andamento di una funzione che 
oscilla in segno. Come adesso vedremo, questa situa¬ 
zione si manifesta proprio nelle nostre figure. 

Nel nostro caso, dato che stiamo rappresentando la 
funzione sin (r ), al posto di t usiamo r , e l’intervallo 
di campionamento, che prima era la distanza tra un 
valore di t ed il successivo, adesso diventa la differen¬ 
za dei valori di r calcolati in punti adiacenti del 
reticolo. Come si vedrà nell’analisi seguente, questa 
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differenza non è costante, ma varia al variare di x e 
diy. 

Per semplicità analizziamo per ora solo il caso b = 2, 
e calcoliamo il valore del nostro intervallo di campio¬ 
namento. Questo è dato dalla variazione di r 2 nel 
passare da un puntino i, j ai puntini vicini. Ci sono 4 
modi diversi di spostarsi da un puntino al vicino 
(figura 7): esaminiamo ognuno di questi modi 

1) r 2 (i + 1, j) - r 2 (i, j) = r 2 (x + A x, y) - r 2 (x, y) = 
x 2 + 2 x A x + (A x) 2 + y 2 - x 2 - y 2 = 2 x A x + 0 (( A x) 2 ) 

2 (l.D 

dove con 0 ((A x) ) indico termini del secondo ordine 
in A x, perciò trascurabili 

2) r 2 (i + 1, j + 1) - r 2 (i, j) = 2 x A x + 2 y A x 

(1.2) 

3) r 2 (i,j + 1) - r 2 (i, j) = 2 y Ax 


(1.3) 


4) r 2 (i — 1, j + 1) - r 2 (i, j) = 2 y A x - 2 x A x 


(1.4) 

Da questi risultati si vede come l’intervallo di cam¬ 
pionamento dipenda dai valori di x e y (oltre che da A 
x, che però è costante). Procedendo ad esempio lungo 
la retta y = 0, e allontanandosi dal l’origine, x cresce, e 
con esso crescono anche gli intervalli di campiona¬ 
mento nelle direzioni 1, 2 e 4 fino ad oltrepassare il 
valore di n; oltre questo punto l'andamento della 
funzione non è più ben rappresentato dai punti di¬ 
segnati sul video. Questo del resto lo avevamo già 
intuito notando come le larghezze degli anelli circola¬ 
ri, che rappresentano gli intervalli di r per i quali la 
funzione conserva lo stesso segno, diminuiscano a 
mano a mano che ci si allontana dal centro della 
figura. Quando gli anelli hanno spessore uguale ad 
un puntino, siamo nella zona in cui l’intervallo di 
campionamento nella direzione del raggio è vicino a 
tt (la funzione cambia segno ad ogni puntino). Oltre¬ 
passato il raggio per il quale l’intervallo è uguale a rt, 
la struttura ad anelli via via più sottili non può più 
rappresentare bene la funzione. 
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Indagine su alcune 
_strane figure 



Figura 8. Lo schema di figura illustra la struttura delle zone di simmetria più evidenti visibili, ad esempio, in figura Jc. I 
punti marcati con la croce sono quelli nei quali i 4 valori (I. I - 1.4) degli intervalli di campionamento sono multipli interi 
di 2 n, e i cerchi che li contengono rappresentano l’estensione delle zone a simmetria circolare centrate in questi punti. 


In tabella 1 sono riportati, per b = 2 e per diversi 
valori di XM, i valori di x per i quali succede quanto 
detto; si può facilmente verificare come le figure 
siano in pieno accordo con questi risultati. Si noti, ad 
esempio, come nel caso della figura 3a, nella quale la 
simmetria circolare si conserva indisturbata, il punto 
in questione giaccia molto fuori dello schermo, men-' 
tre nella figura 3b si comincino a notare delle irrego¬ 
larità dovute alla vicinanza del punto in questione 


(anche in questo caso fuori dello schermo). 

Sorge però adesso una domanda imbarazzante; 
abbiamo visto cosa succede sull’asse x, e come, oltre¬ 
passata una certa distanza daM’origine, la distanza 
tra i punti del reticolo renda impossibile riprodurre 
bene l’andamento del segno della funzione. Questo 
non spiega ancora come mai, dato che la funzione 
dipende solo dalla distanza dall’origine, il suo com¬ 
portamento non è uguale in tutte le direzioni, e cioè 
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perché quello che avviene sull’asse x non si riproduca 
esattamente su un altro qualsiasi raggio. 

La causa di questa rottura di simmetria sta nel fatto 
che, anche se la funzione che viene rappresentata ha 
una simmetria circolare, il reticolo che si usa per 
definire i punti del piano xy nei quali il vaLore della 
funzione verrà calcolato per rappresentarla non pos¬ 
siede questa simmetria. In altre parole: è vero che il 
valore della funzione dipende solo da r, ma nel retico¬ 
lo che usiamo, pochi punti hanno lo stesso valore di r 
(figura 2c). Se invece di un reticolo come quello che 
usiamo (al quale siamo del resto vincolati perché il 
reticolo dei puntini che possiamo visualizzare sul 
video ha la stessa forma) potessimo usare il reticolo 
di figura 2d, potremmo continuare ad osservare una 
simmetria circolare nella figura. 

In pratica, usando un reticolo quadrato invece che 
quello circolare, si commette un errore dello stesso 
tipo di quello che si commetterebbe se nelle figure 6, 
invece di usare per il campionamento i valori di t dai 
quali abbiamo ricavato i punti marcati con le croci, 
avessimo usato degli altri valori, ognuno dei quali 
compreso neH’intervallo tra due dei valori originali, 
ma non ad una distanza fissa tra essi. 

Ma allora, visto che il reticolo usato è inadeguato a 
rappresentare una funzione a simmetria circolare, 
come mai nella parte centrale delle figure 3 questa 
simmetria continua ad essere osservata, e come mai 
nella figura 3a non si osserva alcuna rottura di sim¬ 
metria? 

La risposta è abbastanza semplice: nella parte centra¬ 
le della figura la situazione è analoga a quella di 
figura 6a, e il fatto di usare un puntino del reticolo 
quadrato invece che uno del reticolo circolare non 
modifica sensibilmente la rappresentazione della 
funzione; invece, dove la distanza tra due punti vicini 
del reticolo è dello stesso ordine di grandezza del 
periodo della funzione (figura 6d), l’errore che si 
commette usando il reticolo quadrato può alterare 
completamente la rappresentazione. 


La simmetria residua rispetto agli assi 
ed alle diagonali 

Questa simmetria residua, osservabile in ognuna 
delle figure 3, deriva dal fatto che, poiché il reticolo di 
punti sul quale calcoliamo il valore della nostra fun¬ 
zione è centrato nell’origine delle coordinate, per 
ogni punto del reticolo (x, y) associato ad una coppia 
di valori (i, j) esistono effettivamente sul reticolo i 
punti ad esso simmetrici rispetto agli assi e alle diago¬ 
nali (figura 4a). I valori di x e di y in questi altri punti 
si possono ottenere o scambiando i segni di x, di y o di 
entrambi, oppure scambiando x con y (e poi scam- 



Tabella 1. Distanza dall'origine oltre la quale non è più 
riconoscibile la simmetria circolare (figure 3a-3g). 


biando i segni come nel caso precedente). 

Poiché la funzione dipende solo da r,ecioè da x 2 +y 2 , 
è chiaro che nei punti suddetti il valore sarà lo stesso. 
Per eliminare questa simmetria, basta spostare l’ori¬ 
gine delle coordinate in modo da distruggere questa 
corrispondenza (figura 4b). Ciò si ottiene molto facil¬ 
mente ad esempio modificando la linea: 

1023 X = X + 0.05 : Y = Y + 0.09 
Facendo allora girare il programma con b = 2 e 
XM = YM = 30, si ottiene la figura 5; si può notare 
come la simmetria quadrata sia scomparsa: ad esem¬ 
pio, le zone centrali dei 4 cerchi sopra, sotto e di 
fianco a quello contenente l’origine sono diverse tra 
loro, mentre prima erano uguali (figura 3d). 


Perché compaiono altre zone a simmetria circolare 

Dalle formule ( 1.1) - ( 1.4) si nota come esistano dei 
punti nei quali ognuno dei 4 intervalli di campiona- 
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mento vale 0, o 2 ir, o un multiplo intero di 2 tu; questi 
punti sono quelli per i quali sia x che y si possono 
scrivere nella forma 

2 n 7t 


con n intero. / a x 

In questi punti si ha una situazione analoga a quella 
dell’origine; inoltre, poiché la variazione dell’inter¬ 
vallo di campionamento passando da un puntino al 
vicino è costante in tutto lo spazio (lo si vede differen¬ 
ziando le 1.1 -1.4), lo spazio necessario perché l’inter¬ 
vallo di campionamento passi da 0 a tu è uguale a 
quello per passare da 2 tu a 3 /t, e così le dimensioni 
degli anelli che si vengono a formare intorno a questi 
punti “privilegiati” sono uguali in tutta la figura. 

Il colore e la dimensione degli anelli centrali possono 
essere diversi in ognuno di questi punti; ciò dipende 
dallo sfasamento che la funzione sin (r 2 ) ha in questi 
punti rispetto all’origine, sfasamento che è facilmen¬ 
te calcolabile: 


tp = r 2 mod 2 7t = 


_[ 4 TI 2 ,2,2 
7t — - (n x + n 

[4 (A x) 2 


mod 2 ju 


In figura 8 è riportato uno schema che rappresenta la 
struttura delle nostre figure in funzione degli inter¬ 
valli di campionamento 1 e 3 (gli intervalli 2 e 4 si 
ottengono rispettivamente sommando e sottraendo 1 
e 3). In questo schema i punti marcati con “x” rap¬ 
presentano i punti dei quali si è detto sopra, e i cerchi 
che li contengono sono le zone a simmetria circolare 
ben definita intorno a questi punti. 

Sulle figure notiamo, molto evidenti anche se me¬ 
no delle prime, altre zone con una certa simmetria 
circolare. Queste zone si trovano nei punti dove 3 
degli intervalli di campionamento valgono +/— 2 
ti/ 3, + 2 n tu, ed il restante 2 n ut. Sul nostro schema 
contrassegnamo questi punti con un triangolo. 
Queste zone sono meno evidenti delle precedenti sia 
perché quando l’intervallo di campionamento vale 2 
tu/ 3 non si ha un gran numero di punti positivi seguiti 


da un gran numero di punti negativi, ma la distribu¬ 
zione a due punti di un colore seguiti da un punto del 
colore opposto già illustrata in figura 6c, sia perché il 
fatto che uno degli intervalli valga 2 n tu fa si che in 
una direzione il valore della funzione mantenga lo 
stesso segno per un buon numero di puntini, distur¬ 
bando la simmetria circolare. 

1 punti contrassegnati con un cerchietto sul nostro 
schema sono quelli nei quali 3 degli intervalli valgono 

2 n tu + tu, ed il quarto vale 0 (o 2 n n). Così, mentre 
l’intervallo uguale a 0 è responsabile delle linee conti¬ 
nue che attraversano la figura, i tre intervalli uguali a 
n fanno si che, nella direzione perpendicolare a que¬ 
ste linee, puntini vicini abbiano segni opposti e, per¬ 
ciò, colori diversi. 

Infine, nei punti contrassegnati da un quadratino, 
gli intervalli I e 3 valgono n, e così ogni puntino è di 
colore opposto a quello immediatamente a fianco, o 
sopra, o sotto, mentre gli intervalli 2 e 4 valgono 2 n 
7i, dando origine alle linee diagonali formate da pun¬ 
tini dello stesso colore. 

Cosa succede quando b è diverso da 2 

Osservando le figure 3h-3p, ottenute con valori di 
b diversi da 2, si possono notare 3 cose: 

1) le varie zone che si individuano nelle figure non 
hanno più una simmetria circolare, ad eccezione del¬ 
la zona centrale; 

2) le dimensioni delle zone variano all’interno delle 
singole figure; in particolare, se b > 2 le zone diventa¬ 
no più piccole allontanandosi dal centro, mentre se b 
< 2 succede il contrario; 

3) anche la densità delle zone varia all’interno delle 
figure, e si perde la struttura a reticolo ripetitivo che 
caratterizza il caso b = 2. Quando b > 2 le zone sulle 
diagonali tendono ad avvicinarsi al centro, mentre 
quando b < 2 si allontanano da esso. 

Tutti e tre questi fatti sono facilmente spiegabili 
osservando l’andamento degli intervalli di campio¬ 
namento e delle loro variazioni in funzione di x e y. 
Generalizzando le espressioni 1.1 - 1.4 si ha: 
r" (x + A x, y) - r" (x, y) = [ r 2 (x + A x, y) ]n/ 2 - [ r 2 (x, y) 

] n/2 — 

= (x 2 + 2 x A x + y 2 ) n /2 - (x 2 + y 2 )n / 2 = AR, 
mentre, per le variazioni dell’intervallo di campiona¬ 
mento: 


1000 

READ B,XM 

Listato 1. Programma per il 

1002 

YM=XM 

■ tracciamento dei grafici scritto 

1010 

MODE ó:COLORO 15 3 5 0 

in BASIC per il DAI, ma 

1015 

FILL 0,0 XMAX,YMAX 15 

facilmente traducibile per altri 

1 020 

FOR 1=0.0 TO 215. 0: FOR J = 0. 0 TO 215.0 

calcolatori. 

1022 

X=I *2. 0+XM/215.0-XM:Y=J*2.0+YM/215.0-YM 


1024 

R=SQR(X+X+Y+Y) 


1025 

Z=SIN(R A B> 


1030 

COLORE=0sIF Z<0 THEN C0L0RX=15 


1040 

DOT I,J COLORE 


1 050 

NEXT JSNEXT I 


1060 

END 
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SONO M EDICOLA 



Possiedi un Sinclair Spectrum 
o uno ZX81 e vuoi saperne di più? 

Vuoi disporre di nuovi programmi, giochi 
e idee per utilizzare al meglio il tuo piccolo gioiello? 
Corri in edicolo e acquista SUPERSINC per dare 
una nuova carica al tuo home computer. 

SUPERSINC, in edicolo tutti i mesi, è lo rivisto nuova 
e indispensabile per chi possiede un computer Sinclair. 


SUPERVIC è il "carburante” 
per il tuo VIC 20 e il tuo C 64. 

SUPERVIC è la nuova rivista pensata 
e realizzata per utilizzare ancoro 
meglio il tuo personol computer. 

SUPERVIC ti propone, ogni mese 
giochi, utility, software tools, notizie, 
prezzi. E tante idee nuovel II pieno di software 
si fà in edicola con SUPERVIC. 


<B> 




Via 


Unmarchiodì 



Rotai lini 12, 20124 Milano lai. 6880951 TLX 333436 


...Idee nuove per il tuo personal» 














Libri firmati 

JACKSON 


VOI 

E L INFORMATICA 


DRAMMI 


(FU 



Alan Miller 

PROGRAMMI SCIENTIFICI 
IN PASCAL 

Un'opera base per chi 
desidera costruirsi una 
"libreria” di programmi in 
grado di risolvere i più 
frequenti problemi 
scientifici e ingegneristici. 
372 pagine L. 25.000 
Codice 554P 

Franco Filippazzi 
Giulio Occhini 
VOI E L'INFORMATICA 
L’opera che il manager 
moderno non può ignorare. 
In 100 tavole: gli strumenti 
dell’Informatica, 
l'Informatica e l’Azienda, 
realtà e prospettive 
tecnologiche... 

116 pagine L. 15.000 
Codice 526A 

Roland Dubois 

CAPIRE I 

MICROPROCESSORI 

Un fantastico viaggio alla 
scoperta del "cervello" 
elettronico: la funzione 
del microprocessore, 
delle memorie ROM e RAM, 
delle interfacce... 

126 pagine L. 10.000 
Codice 342A 


Giuseppe Saccardi 

TRASMISSIONE DATI 
Dispositivi standard e 
protocolli 

Il calcolatore e le sue 
infinite applicazioni nel 
campo delle comunicazioni 
applicate a tutti i settori in 
cui si articola la società 
moderna. Un libro che 
traduce in tecnologia la 
profezia orwelliana di 
"1984" 

308 pagine L. 23.000 
Codice 528P 

F. Franceschini 
F. Paterlini 
Voi e il vostro 
Commodore 64 

Uno strumento 
fondamentale per la 
comprensione e 
programmazione del 
Commodore 64. 

Con consigli, programmi 
testati, glossario e utili 
accenni di BASIC. 

256 pagine L. 22.000 
Codice 347 B 


La Biblioteca che fa testo 


In busta chiusa, e senza impegno, inviate questo coupon a: 
Gruppo Editoriale Jackson -Via Rosellini, 12 - 20124 Milano 

□ Desidero ricevere gratuitamente il Catalogo Generale 
della Biblioteca Jackson e informazioni sulle 10 Riviste 
specialistiche da voi pubblicate. 

(allego L. 1.000 in francobolli per contributo spese di spedizione) 

□ Desidero ricevere contrassegno ll/i volume/i 


(pagherò al ricevimento L. 

piu L. 2.000 per contributo spese di spedizione) 


Nome_ 
Via_ 


.Cognome. 


^AP. 


.Città. 


l 





Indagine su alcune 
strane figure 


x A x + y 2 ) n/2 


y 2 )"' 2 


-J- A R,= (2 x + 2 A x) (x 2 + 2 

- 2 x (x 2 -I- y 2 ) nk 
i- A R = (2 y) (x 2 + 2 x A x + 

jy , , „ , 

- 2 y (X 2 + y 2 ) n/2 " 

Come si vede, la variazione deH’intervallo di cam¬ 
pionamento al passare da un punto al vicino dipende 
da x e da y; se b > 2 essa cresce al crescere della 
distanza dall’origine, e ciò spiega la diminuzione del¬ 
le dimensioni delle zone nelle figure 3h-3j, 3n e 3p; al 
contrario, se b < 2, la variazione decresce con l’allon¬ 
tanarsi dall’origine, e così le zone diventano più gran¬ 
di. 

La perdita della simmetria circolare delle singole 
zone dipende invece dal fatto che la variazione del¬ 
l’intervallo di campionamento calcolata in un dato 
punto dipende dalla direzione lungo la quale questa 
variazione è calcolata. 

Infine, la deformazione del reticolo è causata dal 
diverso andamento deH’intervallo di campionamen¬ 
to; in particolare, mentre nel caso b = 2 valeva l’u¬ 
guaglianza: 

x + y = r , 

in generale si ha che il primo termine è maggiore del 
secondo se b < 2, mentre è minore se b > 2. Questo 
spiega l’avvicinamento al centro delle zone lungo le 
diagonali, rispetto alle zone lungo gli assi x e y, nel 
caso di b > 2, ed il loro allontanamento nel caso 
contrario. 

Conclusioni 

Spesso problemi apparentemente semplici e privi 
di difficoltà, come ad esempio tracciare il grafico di 
una funzione, nascondono complicazioni alle quali 
occorre dedicare un po’ di attenzione. L’analisi svol¬ 
ta in questo articolo è stata volutamente poco rigoro¬ 
sa e molto intuitiva, perché le complicazioni matema¬ 
tiche non facessero perdere di vista il punto centrale 
del problema, ossia la spiegazione dell’origine delle 
figure 3a-p, ormai non più tanto strane. In particola¬ 
re, si sono trascurati gli effetti degli errori di arroton¬ 
damento introdotti dal calcolatore nel rappresentare 
i numeri reali (questi errori non disturbano nel caso b 
= 2, ma non si potrebbero trascurare al crescere di be 
di XM), e non si è cercato di capire cosa succede 
quando anche le variazioni degli intervalli di campio¬ 
namento subiscono notevoli cambiamenti da un pun¬ 
tino al successivo (figura 9). A volte, come nel nostro 
caso, alcuni di questi effetti hanno una importanza 
secondaria e si possono trascurare; altre volte ciò non 
è possibile, e per risolvere un problema non si può 
evitare di analizzarne ogni minimo particolare. ■ 
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fai crescere 


h tuo sinczlair - -Spectrum 
con le sue eccezionali periferiche ! 



ZXMICRODRIVE 

Amplia le possibilità dello 
ZX Spectrum in quel settori 
come la didattica e le 
piccole applicazioni 
gestionali, dove è necessaria 
una ricerca veloce delle 
informazioni. 

Ogni cartuccia può 
contenere: 

85 kbyte / 95 kbyte 


CARTRIDGE 

Per ZX Mlcrodrlve. 
Capacità: 

85 kbyte /95 kbyte 
Confezione da 2 pezzi. 


a casa vostra subito 11 


Descrizione 

Q.tà 

Prezzo 

unitario 

Prezzo 

Totale 

COMPUTER ZX SPECTRUM 16 kbyte 


L. 398.000 


COMPUTER ZX SPECTRUM 48 kbyte 


L. 499.000 


ZXMICRODRIVE 


L. 199.500 


ZX INTERFACE 1 


L. 199.500 


ZX INTERFACE 2 


L. 95.500 


2 CARTRIDGE 


L. 45.000 

La coppia 




ZX INTERFACE 2 

Permette di utilizzare le 
nuovissime ZX ROM, 
cartucce software e il 
collegamento per 2 
joystick. 


ZX INTERFACE 1 

Indispensabile per il 
collegamento dello 
ZX Mlcrodrive. 

Inoltre permette il 
collegamento fra lo 
ZX Spectrum e una ampia 
gamma di periferiche e di 
altri Sinclair In rete locale. 


COMPUTER 
ZX SPECTRUM 

A colori, collegabile ad un 
televisore a colori o in b/n 
e ad un normale 
registratore a cassetta. 
32x24 caratteri. 

RAM di base: 16 k 48 k 
256x192 punti. 

8 colori • 2 luminosità. 


sindlair - 


Desidero ricevere il materiale indicate) nella tabella, a mezzo pacco postale 
contro assegno, al seguente indirizzo: 


Nome 




Cognome [_ 





Via 


Cittì | | | | | | | 





Data 1 1 1 1 1 1 1 




C.A.P. 



Desidero ricevere la fattura | Si | 

NO 








Partita I.V.A. o, per i privati Codice Fiscale 

□mi 1 I 1 I I I 1 11 L -L-U 

PAGAMENTO: 

A) Anticipato, mediante assegno circolare o vaglia postale per l'importo totale 
deH'ordinazione. 

B) Contro assegno, in questo ceso, è indispensebile versare l'acconto di Lire 50.000 
mediante assegno circolare o vaglia postale. Il saldo sarà regolato contro assegno. 

AGGIUNGERE: L. 5.000 per contributo fisso. I prezzi sono comprensivi di I.V.A. 18' 
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e componenti elettronici 
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HOME COMPUTER 


LA RIVISTA DEL COMPUTER IN CASA 


r.uir.Mn land 1. i snn 


TUTTE LE NOVITÀ DI LAS VEGAS 
I SEGRETI DELL'AQUARIUS 
A TU PER TU CON LA PROGRAMMAZIONE 

SPECIALE GRAFICA 


ZX 81 • VIC 20 • SPECTRUM • CBM 64 • ATARI • APPLE • SHARP 




















Calcolo letterale 
— di polinomi — 


Lo ZX81 amico fedele 
nei compiti di algebra 

di Carlo Cappelli 


L a manipolazione algebrica 
dei polinomi può sembra¬ 
re argomento di facile trat¬ 
tazione, poiché tali sembrano le re¬ 
gole che usiamo per riordinare i po¬ 
linomi a mente; non lo è, invece, se 
cerchiamo di implementare le stesse 
regole su un personal computer ser¬ 
vendoci del linguaggio BASIC. 

Le difficoltà che si incontrano ri¬ 
guardano la complessità degli algo¬ 
ritmi da usare, che comportano tem¬ 
pi di elaborazione proibitivi. 

Per rendersi conto di ciò, possiamo 
analizzare alcune fasi che mental¬ 
mente vengono eseguite senza diffi¬ 
coltà, ma che richiedono lunghi 
tempi di elaborazione per un com¬ 
puter. Prendiamo, ad esempio, il 
procedimento di somma degli ele¬ 
menti di un polinomio che prevede 
la somma di tutti i termini di ugual 
grado (tutti i termini al cubo vengo¬ 
no sommati tra di loro, così pure 
quelli al quadrato, ecc.). 

La macchina non può analizzare 
tutti i termini del polinomiocon uno 
sguardo d’assieme, ma deve studiar¬ 
li carattere per carattere, tenendo 
conto di tutti i modi in cui ogni ter¬ 
mine può essere scritto. Ad esempio, 
X al quadrato può essere scritto X t 
2 (t indica l’elevamento a potenza) 
oppure X ★ X che matematicamen¬ 
te hanno lo stesso significato, ma 
simbolicamente assumono forma 
diversa. Già per risolvere questi pas¬ 
saggi un normale computer pro¬ 


grammato in BASIC impiega tempi 
lunghissimi, che diventano inaccet¬ 
tabili se deve anche sviluppare pro¬ 
dotti tra polinomi, cosa molto co¬ 
mune nel calcolo letterale. Una solu¬ 
zione possibile sarebbe di utilizzare 
il linguaggio macchina, al fine di ot¬ 
tenere una maggiore velocità di ese¬ 
cuzione, ma così facendo si compro¬ 
metterebbe l’adattabilità degli algo¬ 
ritmi. 

Un’alternativa interessante consiste 
nello sfruttare la caratteristica basi¬ 
lare del computer, intendendolo 
cioè come struttura di calcolo diver¬ 
sa nella sostanza dalla struttura del 
pensiero umano che è decisionale, e 
applicare quindi regole diverse da 
quelle che noi utilizziamo, usufruen¬ 
do al massimo dell’enorme velocità 
con cui vengono eseguiti calcoli an¬ 
che molto complessi. 

Nella pratica del caso in esame è 
necessario sviluppare algoritmi che 
conducano al polinomio risultante 
solo mediante calcoli numerici. 

Il programma presentato in que¬ 
sto articolo risponde a queste esi¬ 
genze; esso svolge rapidamente, in 
forma esplicita, polinomi in una va¬ 
riabile fino al quinto grado e deter¬ 
mina inoltre gli zero (cioè le soluzio¬ 
ni) ed il segno dell’equazione risul¬ 
tante. 

Il programmaèscrittoin BASIC per 
ZX81 e Spectrum, ma è stato fatto in 
modo da poter essere adattato facil¬ 
mente su qualsiasi altro computer. 
Il tempo di elaborazione è molto 
contenuto: per risolvere un polino¬ 
mio con decine di parentesi occorro¬ 
no 15 secondi, o anche meno, men¬ 
tre per trovare gli zero dell’equazio¬ 
ne risultante occorrono da 20 a 40 
secondi, a seconda del numero di 
soluzioni da trovare. 

Il principio su cui si basa il program¬ 
ma è che inserendo al posto della 
variabile un valore numerico se ne 


ottiene un altro, che è specifico di 
quel polinomio; quindi, in base ai 
vari risultati ottenuti, inserendo una 
certa quantità di valori numerici, è 
possibile determinare l’equazione 
risultante nella forma esplicita, cioè 
la più sintetica, senza parentesi e ri¬ 
petizioni di termini di ugual grado. 
Per chi ha qualche nozione di analisi 
matematica posso dire che ogni po¬ 
linomio può essere inteso come il 
secondo membro di una funzione in 
Yo; dando alla variabile indipen¬ 
dente vari valori si ottengono in cor¬ 
rispondenza altrettanti valori della 
variabile dipendente. Queste coppie 
di valori individuano dei punti per i 
quali passa il grafico della funzione 
ed in base ad essi si può ricostruire la 
funzione stessa. Se il polinomio è di 
1° grado occorrono due punti, se di 
II 0 grado tre punti e così via. 
Analizziamo ora in dettaglio il pro¬ 
gramma. 

Il polinomio viene inserito in input e 
deve avere matematicamente senso, 
cioè deve essere scritto sfruttando i 
simboli matematici del computer; 
ciò che comunemente si legge “tre X 
due”, corrisponde a 3 x X ~ 2 e non a 
3X2. Come variabile si può usare 
solo la lettera X, altrimenti si devo¬ 
no apportare varie modifiche al pro¬ 
gramma. 

Il polinomio può essere inserito così 
com’è oppure sotto forma di equa¬ 
zione, divisa in due parti separatela 
un ci pensa il programma a 

spostare verso sinistra, cambiando 
di segno, ciò che sta a destra dell’u¬ 
guale. Successivamente viene appli¬ 
cato un semplice algoritmo per de¬ 
terminare il grado del polinomio 
(per chi non lo sapesse il grado di un 
polinomio non è altro che il valore 
della potenza più alta. Esempio il 
polinomio X + 4 x X 2 — X 3 ha 
grado 3). 

In pratica si attribuisce ad X un va- 

65 














INSERISCI II. POLINOMIO 

X*X« tX+1 z'S.t ■+ (X-3) * 1X42) - (X+4) 4 (X 
+ 4)+35/2 

IL POLINOMIO E* DI 3" GRADO 
I CGEFFICENTI SONO: 

1 0.5 -9 -4.6 

PER CONTINUARE PREMI N/L 

OLI ZERI DEL POLINOMIO SONO: 

-3 -0.5 

IL SEGNO DEL POLINOMIO E* 

P 3 N -0.5 

P -3 

INFINE PER X <-3 N 


INSERISCI IL POLINOMIO 

C -X4X+0/-3) 4 CX —5) 4 (34X46) +X4X4 (3# 
X4X-1)=4*X#X+(X+3/3)4(X-S) 

IL POLINOMIO E* DI 3* GRADO 
I COEFFICENTI SONO: 

9 32 -20.5 -72.5 

PER CONTINUARE PREMI N/-L 

OLI ZERI DEL POLINOMIO SONO: 
-3.5597 -1.5022 

1.5064 

IL SEGNO DEL POLINOMIO E* 

P 1.5064 N -1.5022 

p m S 55 Q 7 

INFINE PER X<-3.5597 N 


Figura 1. Quadro video presentato alla fine delle elabo¬ 
razioni de! primo esempio. 

lore grande, nel nostro caso 1E7, e si 
divide il risultato per X elevato a un 
indice G, che viene incrementato 
ogni volta; quando il risultato della 
divisione è in valore assoluto molto 
più piccolo di 1E7 (nel nostro caso 
quando è minore di 100) allora l’in¬ 
dice G rappresenta il grado del poli¬ 
nomio. Stabilito questo si possono 
determinare i punti sufficienti a in¬ 
dividuare il polinomio risultante, 
che devono essere in numero di G + 

I. Lasciamo ai matematici le consi¬ 
derazioni sui limiti di questo meto¬ 
do. 

Per semplicità inseriamo al posto 
dei termini in X valori numerici inte¬ 
ri a partire dallo zero e ne valutiamo 
il risultato. 

Per rendersi conto di come funziona 
il programma conviene analizzare il 
caso pratico di un polinomio di 3° 
grado: 

axX 3+bxX 2 + cxX+d(con 
a, b, c, d coefficienti numerici del 
polinomio). 

Inserendo 0, 1, 2, 3 otteniamo: 
d = Y0 dove Y0, Yl, Y2, Y3 sono i 
corrispettivi valori del polinomio 
dando ad X i valori 0, 1,2, 3. 
a + b + c+ d = YI 
ax8 + bx4 + cx2+d = Y2 
ax27 + bx9+cx3+d = Y3 
Otteniamo così un sistema di G + I 
equazioni lineari che risolto fornisce 
i coefficienti del polinomio risultan¬ 
te. 

La soluzione del sistema viene Otte- 


Figura 2. Quadro video presentato alla fine delle elabo¬ 
razioni dei terzo esempio. 


nuta inserendo i valori in una matri¬ 
ce quadrata, che ci aiuterà a giunge¬ 
re alla soluzione mediante sostitu¬ 
zioni successive. La spiegazione del 
procedimento utilizzato richiede¬ 
rebbe una trattazione a parte e una 
certa conoscenza dell’algebra delle 
matrici. 

Una volta risolto il sistema linea¬ 
re, il programma visualizza i coeffi¬ 
cienti cercati, partendo da quelli di 
grado maggiore. 

Successivamente passa alla ricerca 
degli zeri del polinomio; data la len¬ 
tezza di questa parte di programma, 
si è limitata la ricerca tra — 50 e 50, 
limiti stabiliti alle linee 800 e 835. La 
precisione è di 4 cifre dopo lo zero, 
servendoci della seguente formula: 
INT (X x 10000 + 0.5)/10000. Al 
postodi lOOOOsi può inserire 100000 
per aumentare la precisione delle so¬ 
luzioni, a scapito però della velocità 
di elaborazione. L’algoritmo che re¬ 
gola il processo di ricerca delle solu¬ 
zioni consiste nell’inserire nella X 
valori in sequenza con uno step di .4 
(vedi linea 810) e valutare in corri¬ 
spondenza il valore del polinomio; 
se questo valore passa da positivo a 
negativo, o viceversa, significa che 
in quell’intorno vi è uno zero del 
polinomio, cioè tra il valore prece¬ 
dente e l’ultimo il polinomio si an¬ 
nulla. A questo punto si riduce lo 
step e si torna al punto precedente; si 
applica poi lo stesso principio ridu¬ 
cendo sempre più l’intorno nel quale 


il polinomio si annulla, fino ad otte¬ 
nere un risultato con la precisione 
desiderata. 

Infine si studia il segno del polino¬ 
mio, cioè se ne esegue la disequazio¬ 
ne. 

Lo studio viene effettuato inserendo 
nella X valori maggiori e minori di 
ogni soluzione precedentemente ot¬ 
tenuta e studiando i risultati. 

Per le parti positive e negative si 
usano le abbreviazioni P e N. 

Il risultato viene visualizzato nel 
modo seguente: 

PnNm dove n, m sono termini nu¬ 
merici 

e si deve interpretare cosi: il polino¬ 
mio è positivo per X > n, è negativo 
per m < X < n. 

Per rendersi meglio conto del fun¬ 
zionamento del programma provia¬ 
mo ad inserire il seguente polinomio 
(vedi figura 1): 

X x X x (X + 1/2) + (X — 3)x(X + 2) 

- (X + 4) x (X + 4) + 35/2 

I coefficienti del polinomio risultan¬ 
te saranno: 

I 0.5 -9 -4.5 

Quindi il polinomio è: X 3 + 0.5 x 

X * 2 -9 x X -4.5 

Gli zeri sono: —3 —0.5 3 

II segno è: P 3 N — 0.5 
P -3 

per X < -3 N 

Che corrisponde a: 

positivo per X > 3, negativo per 3 < 

X < — 0.5, positivo per — 0.5 < X < 

- 3 infine negativo per X < - 3. 
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Calcolo letterale 
di polinomi 


80-140 Calcolo del grado del polinomio. 

150-280 Calcolo dei coefficienti del sistema lineare. 

290-565 Risoluzione del sistema lineare. 

570-695 Valutazione dei coefficienti del polinomio e stampa risultati. 

700 Stampa messaggio per polinomio degenere in un termine numerico. 

720-760 Risoluzione dei polinomi di 1° grado e stampa risultati. 

780-930 Ricerca degli zeri del polinomio. 

940-970 Stampa risultati. 

980-1060 Valutazione del segno del polinomio. 

1070-1160 Stampa risultati. 

1200-1270 Riordinamento polinomio iniziale con spostamento delle quantità a 
destra del segno di uguale. 


Figura 3. Elenco delle funzioni svolle dai vari blocchi de! programma. 


Z(IO) 

Vettore per gli zeri del polinomio. 

T (G) 

Vettore per i valori del polinomio in corrispondenza di 
altrettanti valori della X. 

R (G) 

Vettore per i coefficienti del polinomio risultante. 

C (G, G) 

Coefficienti del sistema lineare. 

A$ 

Stringa per il polinomio. 

G 

Grado del polinomio. 

R 

Termine noto del polinomio risultante. 

ST 

Step per la ricerca degli zeri. 

NZ 

Numero delle soluzioni trovate. 

X 

Valori della X del polinomio. 

F 

Valori del risultato del polinomio. 

I, K, L, J, W, FI, XI 

Variabili di controllo. 


Figura 4. Lisia delle variabili impiegate ne! programma. 


II quadro video corrispondente è 
mostrato nella figura 7. 

Una puntualizzazione che dobbia¬ 
mo fare riguarda la differenza, per 
un personal computer, tra un nume¬ 
ro elevato a potenza e un numero 
moltiplicato tante volte per se stesso 
quanto è il valore della potenza ri¬ 
chiesta. Matematicamente le due af¬ 
fermazioni hanno lo stesso significa¬ 
to, ma un calcolatore, in genere, non 
accetta numeri negativi con la pri¬ 
ma, mentre li accetta con la seconda. 
Provate ad esempio: 

(-2) 3 dà errore, mentre: (— 2) x (— 
2) x (—2) dà -8, cioè il giusto valore. 
La stessa differenza sussiste tra X 3 
e X x X x X; quindi al fine di evitare 
interruzioni, soprattutto durante la 
ricerca degli zeri del polinomio (do¬ 
ve si usano valori negativi per la X), 
è consigliabile usare sempre la se¬ 
conda formula. 

Potete provare ad inserire polinomi 


più complicati: 

(XxXxX — 5xX + 7)x(X — 2) + 
(XxX-4xX-6)x(7xXxX+5) 
- 9 

oppure: 

(- X x X + 8/3) x (X - 5) x (3 x X + 
6) + XxXx(3xXxX-l) = 4xXx 
X + (X + 3/2) x (X - 5) 
vedi figura 3. 


Modifiche proposte 

Chi volesse lavorare con polinomi 
di grado superiore al quinto deve 
diminuire il valore alla linea 90, al¬ 
trimenti si ottengono dei valori su¬ 
periori alla capacità del computer. Il 
valore è dato dal numero massimo 
manipolato dal calcolatore diviso il 
grado massimo del polinomio. 

Si possono aumentare i parametri di 
arrotondamento alle linee 575 e 625 


nel modo già indicato durante l’illu¬ 
strazione dell’algoritmo di ricerca 
degli zeri. 

Infine, a chi volesse ricercare le solu¬ 
zioni di polinomi di grado elevato 
consigliamo di diminuire il valore 
dello step alla linea 810. 
Comunque, i parametri usati sono 
quelli ottimali per polinomi fino al 
quinto grado. 


Conversioni 

Il programma è stato scritto su 
uno ZX81 e ciò dimostra che anche 
macchine semplici possono eseguire 
programmi sofisticati. Per inserirlo 
in uno Spectrum basta non scrivere 
le linee 85, 565, 765, 785, 943, che 
riguardano la velocità di esecuzione 
(FAST o SLOW). 

La conversione per altri personal è 
più laboriosa, poiché solo il BASIC 
Sinclair è dotato dell’utilissima fun¬ 
zione VAL (anche gli altri computer 
hanno la stessa istruzione, che però 
non fa la stessa cosa). 

Ricordiamo inoltre che dopo le fun¬ 
zioni come ABS o SGN molti com¬ 
puter richiedono le parentesi e, an¬ 
che se è superfluo, facciamo notare 
che i LET possono essere omessi. 
Fatte queste precisazioni, vediamo 
come sostituire i VAL; le soluzioni 
possono essere varie: se il vostro 
personal è dotato del comando DEF 
FN al posto dell’input di linea 70 
potete scrivere: 

70 DEF FN A(X) = ; ... polinomio 
Vanno poi tolte le linee 72, 73 e 75; 
infatti, non lavorando su stringhe 
perdono senso; non deve quindi es¬ 
sere scritta la subroutine che parte 
da linea 1200. Poi, in tutto il pro¬ 
gramma, al posto di VAL A$ si deve 
scrivere: FN A(X). 

La sintassi di DEF FN qui presenta¬ 
ta è quella dell’Apple-BASIC. Ri¬ 
cordiamo infine che i due asterischi 
alla linea 260 corrispondono all’ele¬ 
vamento a potenza. ■ 
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Calcolo letterale 
di polinomi. 


Listato 1. Listato del programma per il calcolo lettera¬ 
le su polinomi in X. Accetta polinomi fino a! quinto 
grado. Per polinomi di grado superiore occorre appor¬ 
tare le modifiche descritte nell’articolo. lì programma 
gira con 16 Kbyte di memoria, ma compattandolo 
dovrebbe funzionare anche solo con 4 Kbyte. 


ài REM * # *CRLCOLO*LETTERALE * 
SS REM » SU POLINOMI IN X » 
40 REM M#t*»tH»»**»**»»#»*** 

SO PRINT "INSERISCI IL POLINOM 
IO" 

SS PRINT 
70 INPUT A* 

72 PRINT A* 

73 PRINT 

76 gosub ìaeo 

SO REM CRLCOLO ORRDO 
03 DIM Ztl0> 

06 FAST 
90 LET X-1E7 
10O LET 0-0 
HO LET F-UAL R«/X**G 
ISO LET G-G + l 

130 IP RBS P>1O0 THEN GOTO HO 
140 LET G-G-l 

180 REM CRLCOLO COEPPXCENTX 

ISO LET X-0 

170 LET R-UAL fi* 

ISO IP G-0 TMEN GOTO 700 
190 DIM T(G) 

200 FOR X-l TO G 
210 LET T(X)-URL A*-R 
220 NEXT X 

228 IP G — 1 THEN GOTO 720 
230 DIM C<G,G> 

240 POR X-l TO G 
280 POR P-l TO G 
200 LET C(I,F>=I**F 
270 NEXT P 
280 NEXT I 

290 REM RISOLUZIONE SISTEMR 
300 DIM R fG) 

310 POR K-l TO G-l 
320 LET IbK+1 
330 LET L=K 

340 IF RBS C <I,K) >RBS C(L,K) TH 
EN LET Lei 

380 IP I>—G THEN GOTO 370 
388 LET X-X+l 
360 GOTO 340 

370 IP L=K THEN GOTO 460 
360 POR J-K TO G 
39® LET U—C(KiJ) 

400 LET C (K , JÌ -C(L , J) 

410 LET C(L,J)=U 
420 NEXT J 
430 LET U-T CKJ 
*40 T (K> -T (L ) 

480 LET T(L)-U 

4S0 LET I-K+l 

470 LET U-C<I>K)/C(K,K) 

480 LET C(Ij K )-0 

490 POR J-K>1 TO G 

800 LET CCI,J)-Oli,J)-U*CCK,J) 

810 NEXT J 

820 LET T(I)-TCZ)-U*TtK> 

530 IP 1> —G THEN GOTO 660 

840 LET I-I+l 

660 GOTO 470 

660 NEXT K 

688 5LOU 

870 LET R<G> -T<G) XC(G.G) 

576 LET R(G)-INT (RtGJ#10000+.5 

ixieeee 

880 POR I-G-I TO 1 STEP -1 

890 LET U-O 

600 FOR J=I+1 TO G 

610 LET U-U+C(I,J)#R(J) 

620 LET R ti) - fT (I)-WI XC (I, I) 

628 LET R(I)—INT (R ( li«10000+.8 
)X1OO0O 
630 NEXT J 
640 NEXT I 

648 PRINT "IL POLINOMIO E*DI 

nj,- 


Gj "■ GRRDO' 


Slg £g|NT "I COEPPICENTI SONO." 
680 POR I-G TO 1 STEP -1 
860 PRINT R (I); " 

670 NEXT I 
660 PRINT R 

600 PRINT " PER CONTINUARE PRE 

698 INPUT U* 

699 GOTO 760 

700 PRINT "IL POLINOMIO DEGENER 

R IN UN TERMINE NUMERICO ; 

R 

710 STOP 

720 PRINT "IL POLINOMIO E*DI 1* 
GRADO" 

728 PRINT "I COEPPICENTI SONO:" 
730 PRINT T(1);" ";R 

740 PRINT "LO ZERO DEL POLINOMI 
O j-RxT 11) 

780 LET NZ-1 

760 LET Z(1)--RXT(1) 

768 SLOU 

770 GOTO 990 

730 REM ZERI POLINOMIO 

786 FRST 

790 LET NZ-O 

600 LET XI--50 

810 LET ST-.4 

820 LET X-Xl 

830 LET P1-URL A* 

835 IP X >50 THEN GOTO 940 
840 LET X-X+ST 
648 LET XI-X 
850 LET P=UAL A* 

885 IF ABS (F-FI)<lE-5 OR ABS P 
< 1E-6 THEN GOTO 900 
860 IF P«P1>0 THEN GOTO 830 
870 LET X1-X1-ST 
880 LET ST-STX2 
890 GOTO 620 
900 LET NZ-NZ+1 

910 LET Z(NZ)—INT (X#10000+.5)✓ 

ìeeee 

920 LET 5T-.4 
925 LET X1-X1+.01 
930 GOTO 820 
940 PRINT 

943 SLOU 

944 IP NZ-O THEN GOTO 1120 

945 PRINT "GLI ZERI DEL POLINOM 
IO SONO:" 

950 POR 1-1 TO NZ 
960 PRINT Z(I), 

970 NEXT I 

980 REM SEGNO DEL POLINOMIO 
99® PRINT 

1000 PRINT "IL SEGNO DEL POLINOM 
IO E" “ 

1010 FOR I—NZ TO 1 STEP -1 
1020 LET X-Z(I)+.01 
1030 IP SGN UAL A*-l THEN PRINT 
"P ";Z(I>, 

1040 IF SGN UAL R*--l THEN PRINT 
"N “;Z(D.. 

1050 NEXT I 
1060 LET X=X-.2 
1070 PRINT 

1080 PRINT “INFINE PER X<";Ztl)j 

I# «I • 

109À IP SGN UAL A«-l THEN PRINT 

"P" 

1100 IF SGN UAL A*--l THEN PRINT 

"N” 

1110 STOP 

1120 PRINT “IL POLINOMIO NON AMM 
ETTE ZERI REALI" 

1130 PRIMI "E*SEMPRE 

1140 IP R>0 TMEN PRINT "POSITIUO 

«• 

1150 IP R <0 THEN PRINT “NEGATTUO 
1160 STOP 

1200 REM RIORDINAMENTO 
1210 LET 1-2 

1220 IP I-LEN A*—1 THEN RETURN 
1230 IP A*(I)—" THEN GOTO 1260 
1240 LET 1=1+1 
1250 GOTO 1220 

1260 LET R*-A*( TO 1-1 )♦"-l “+R*C 
H-l TO > ♦") " 

1270 RETURN 
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Rivisitiamo insieme 
il Programmerà Tool Kit 


La seconda versione 
del nostro popolare 
programma 


di Alessandro Guida 


Ai lettori di Personal Software 

L’articolo che state per leggere si è 
reso necessario visto l’enorme succes¬ 
so riscosso dall’ormai famoso “Pro- 
grammer’s Tool Kit” apparso sui nu¬ 
meri 12/13 e 14 di Personal Softwa¬ 
re, e visto che non posso rispondere 
privatamente ad ognuno di voi. 

Lo scopo è sia di mettere in grado 
tutti quanti di far funzionare tale pro¬ 
gramma sia di apportarvi alcune mi¬ 
gliorie. 

Per chi non avesse avuto modo di 
leggere i suddetti numeri di Personal 
Software, ricordiamo che il Program- 
mer’s Tool Kit è una raccolta di routi¬ 
ne in linguaggio macchina che ag¬ 
giungono al BASIC dei 64 ben 11 
nuovi comandi, rivolti a semplificare 
il lavoro di stesura e debug dei pro¬ 
grammi. 

L’articolo procederà per gradi, cer¬ 
cando di risolvere i problemi più fre¬ 
quentemente da voi incontrati. 

E consigliabile non saltare alcun pas¬ 
so, se si vuole giungere alla fine con il 
programma funzionante. 

Infine, una precisazione. Noi fare¬ 
mo sempre riferimento al primo lista¬ 
to apparso (quello in BASIC). La se¬ 
conda parte dell’articolo, con il suo 
chilometrico disassemblato (tutto 
commentato!), aveva solamente un si¬ 
lo 


gnificato didattico. Era nostra inten¬ 
zione, infatti, fornire al lettore anche 
la spiegazione del lavoro effettuato e 
dei vari problemi incontrati, con rela¬ 
tive soluzioni. Infine, in questa ma¬ 
niera veniva lasciata la possibilità, ai 
più esperti, di modificare il tutto se¬ 
condo le proprie esigenze. 

Purtroppo, per poter aggiungere i 
commenti al disassemblato, è stato 
necessario riscrivere completamente 
il disassemblato a mano. Questo ha 
portato, inevitabilmente, a qualche 
errore che poteva essere, comunque, 
facilmente corretto, confrontandolo 
con un disassemblato del Tool Kit ot¬ 
tenuto dal programma in BASIC. 

Dopo questo chiarimento, voglio 
ringraziare tutte quelle persone che 
con molta gentilezza mi hanno fatto 
notare alcune anomalie e che si sono 
sforzate di trovarvi una soluzione. 

Vi auguro buon lavoro, ricordando¬ 
vi che ben presto vi sarà un P.T.K. 2 
miglioralo e con altri nuovi comandi. 


1. Il problema maggiore 

Il primo passo da compiere è 
quello di mettere il programma in 
grado di funzionare. Frequente¬ 
mente, infatti, chi ha digitato il pro¬ 
gramma si è trovato di fronte ad un 
misterioso ILLEGAL QUANTITY 
ERROR IN ... o al blocco totale del 
sistema. Questi guai sono dovuti in 
parte ad un errore (l’unico!) del li¬ 
stato. Era misteriosamente scom¬ 
parsa una linea, che era stata pron¬ 
tamente riportata nel numero suc¬ 
cessivo (pag. 75) e che ripetiamo an¬ 
cora: 

1305 DATA A9, 2C, 20, D2, FF, 
A5, FE 

Inutile dire che senza questa linea il 
64 va inesorabilmente incontro ad 
un blocco totale. 


Il resto degli insuccessi, decretati dal 
messaggio di errore visto prima, so¬ 
no dovuti ad errori di battitura degli 
innumerevoli DATA. Naturalmen¬ 
te, il messaggio riporta il numero 
della linea in cui si è cercato di fare 
una POKE con un numero maggio¬ 
re di 255 (la linea 90) o di quelle in 
cui si cerca di determinare l’ASC di 
una stringa nulla, ma questo non ci è 
di alcun aiuto. Per conoscere invece 
la linea di DATA che ha generato 
l’errore è sufficiente digitare in mo¬ 
do diretto: 

PRINT PEEK (63) + PEEK (64) ★ 
256 

Il numero ottenuto sarà proprio 
quello della linea incriminata. 

Infine, un piccolo numero di let¬ 
tori ha avuto problemi nell’interpre- 
tare i caratteri grafici che appaiono 
nelle linee comprese tra la 25 e la 38. 
In realtà, questi non sono altro che 
lettere in maiuscolo formanti una 
maschera video, che richiama la sin¬ 
tassi dei comandi. In ogni caso, ri¬ 
portiamo nuovamente il listato cor¬ 
retto e nel set maiuscolo/minuscolo. 


2. Alla ricerca del BUG 

Può darsi, però, che il programma 
non dia alcuna segnalazione di erro¬ 
re e arrivi alla fine senza che il curso¬ 
re ricompaia. Oppure che una parte 
delle nuove istruzioni non funzioni. 
Anche in questi casi il problema è 
nei DATA. E sufficiente che uno 
solo dei 1694 dati presenti sia errato 
perché appaiano strani risultati. 

Per ovviare a questi inconvenienti, 
nel listato 2 troverete un program¬ 
ma dal simbolico nome di: “CON¬ 
TROLLER”. 

Dopo aver caricato il vostro Tool 
Kit (la versione in BASIC ovvia¬ 
mente) aggiungetevi le linee del prò- 














gramma 2. Queste partono da 10000 
e finiscono quindi in coda al PTK. 
Finito di digitarle, date RUN 10000. 
Se vi sono dei DATA errati, il com¬ 
puter vi segnalerà il blocco di linee 
in cui gli errori sono compresi. Ef¬ 
fettuate le correzioni si darà ancora 
RUN 10000, finché non si avranno 
più segnalazioni di errore. 

A questo punto il vostro Tool Kit è 
in ordine e potete salvarlo su nastro, 
prima di dare il RUN e dopo aver 
cancellato le linee da 10000 in poi. 
Naturalmente, si deve prestare la 
massima attenzione nel digitare le 
linee aggiuntive poiché non ci sarà 
alcun programma per controllare il 
CONTROLLER! 


3. L’istruzione MERGE 

Se siete giunti a questo punto con 
il Tool Kit funzionante, si può pro¬ 
seguire con i perfezionamenti del 
programma. 

L’istruzione Merge ha il difetto di 
funzionare solo con il registratore e 
solo se non si specifica il numero di 
periferica. Diversamente si ha l’er¬ 
rore DEVICE NOT PRESENT, an¬ 
che se il disco o il nastro sono nor¬ 
malmente collegati. 

Questo dipende dal fatto che il nu¬ 
mero in ASCII non viene convertito 
in binario prima della apertura del 
canale con la periferica, per cui il 
computer, di fronte alla richiesta del 
dispositivo 49 (il codice dell’uno in 
ASCII) o del 56, non può far altro 
che segnalare “periferica assente’’. 
Per rimediare a questo problema va 
corretta la linea 1002. 

Vanno sostituiti il l6mo e il 17mo 
dato (B0, E9) con 29, 0F. 

Nel listato I tale linea appare già 
corretta. 


4. L’istruzione KEY 

Per l’istruzione KEY molti hanno 
lamentato il fatto che con la pressio¬ 
ne dei tasti STOPe RESTORE i tasti 
di funzione vengono disabilitati. In 
realtà, questo è opportuno sia così, 
poiché può essere necessario ripor¬ 
tare i tasti di funzione allo stato nor¬ 
male, per eseguire altri programmi 
che li utilizzano. 

Apporteremo, però, una piccola 
modifica al Tool Kit, per fare in mo¬ 
do che i tasti di funzione vengano 
riabilitati digitando il comando 
KEY. 

a) Nell’ultima linea di DATA, la 
2030, vanno tolti l’asterisco e la vir¬ 
gola che lo precede. 

b) Bisogna aggiungere la linea 2040 
come segue: 

2040 DATA 78, A9, 9A, 8D, 15, 03, 
A9, 90, 8D, 14, 03, 58, 4C, 73, 00, ★ 

c) Va corretta la linea 1230 come 
segue: 

1230 DATA 20, 68, 9F, F0, 3B 


5. Un difetto comune a MERGE, 
TRON, AUTO 

Tutti questi comandi presentava¬ 
no dei problemi nel gestire i numeri 
superiori a 32768. Questo fatto è do¬ 
vuto alla routine in linguaggio mac¬ 
china, che si occupa di trasformare 
un numero in notazione intera (2 
byte) in uno a virgola mobile. 

La routine utilizzata ($B391) tra¬ 
sforma tali numeri, considerando il 
bit 7 del byte più significativo come 
il segno, di conseguenza superando 
il valore di 32768 si passa ai numeri 
negativi. Si può in ogni caso porre 
rimedio con le modifiche sottoindi¬ 
cate: 

a) Modificare le seguenti due linee 
cosi: 


15 POKE 56, 152: POKE 55, 240: 
CLR 

45 IF A$ = THENF= 1 :IN = 
39152 : GOTO 40 

b) Aggiungere la linea: 

980 DATA 00, 00, A2, 00, 86, OD, 
85, 62, 84, 63, A2, 90, 38, 4C,49, BC 

c) Modificare i seguenti DATA: 
Linea 1010, sostituire l’undicesimo e 
12mo dato (91, B3) con 2F, 99. 
Linea 1645, sostituire l’ottavo e il 
nono dato (91, B3) con 2F, 90. 
Linea 1780, sostituire gli ultimi due 
dati come per le due linee preceden¬ 
ti. 

Se avete seguito passo per passo fin 
qui, il vostro program,ma dovrebbe 
essere identico a quello del listato 1. 


6. L’ultimo miglioramento 

A questo punto il programma è a 
punto e perfettamente funzionante. 
L’unico neo rimasto è quello dovuto 
alla lentezza in fase di caricamento 
ed inizializzazione del tutto. Ma è 
possibile risolvere anche questo, uti¬ 
lizzando un caricatore e registrando 
il Tool Kit direttamente dalla zona 
di memoria da esso occupata. 

a) Caricare normalmente il Tool Kit 
e dare il RUN per attivarlo. 

b) Digitare il programma loaderdel 
listato 3 e salvarlo su disco o su na¬ 
stro con il nome “PTK LOADER’’. 
Se utilizzate il nastro, ricordate che 
questo programma deve essere il 
primo ad essere registrato e che nella 
linea 40 va cambiato il numero della 
periferica. 

c) Digitate ora in modo diretto: 
LOAD “PTK”, 8, se utilizzate il di¬ 
sco 0, 

LOAD “PTK”, 1, se usate il regi¬ 
stratore. 

Battete RETURN e subito dopo 
premete il tasto di STOP. 
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Listato 1. Listato del Programmerà Tool Kit con le modifiche già apportate. 


2 rem ################################# 

3 rem # iti 

4 rem * Pro9rammer's tool kit v2 * 

5 rem # * 6 rem ################################# 

10 Poke56,152 : Poke55,240 : clr : rem toPmem 
£0 in=828 

25 Printchr*<14)"WB ###PROGRAMMER'S TOOL KIT*## 

27 Prinf'SINTASSI COMANDI ; " 

28 Print" " 

30 Print"HELP" :Print"IIRUTOCin, IC»teP3" :Prinf'SFIND, C"chr*<34>"strin9a"chr$<34>"] 

11 • 
t 

32 Print'VCvariabile/keaword!" 

34 Print"HDUMP" : Prinf'JRENC in. ItstePl" : PrinfltTRONL, STEPJ7C, S] " 

35 Print"IITRQFF" : Print"S1DELETEC in-fine!7C in-I/’C-fineI" 

36 Print"IKEV[n,] CstrinSa J C«-I " : Print"IflEROECf i lename]C,dev 3" 

38 Print"Riattendere, Presola)"; 

40 reada* •' ifa**"#"andf-lthenl00 
45 if a$-"#"thenf=I :in-39152 : 9oto40 
50 al*=left*<a$,1) 

60 9osub500 : n=rs#16 
70 al$=ri9ht#<a$,1> 

80 9osub500 : n"n+rs 
90 Pokein, n : i.n«=in+l : 9oto40 

100 Print"arROGRRMMER'S TOOL KIT-WTTIVRTO" 

110 sys<828> : new 

500 ifa»c<al#X58thenrs*asc<al#>~48 : return 
510 rs=asc<al#>-55: return 

900 da ta 78, a9,9f, S5, fc, a9, SO, 85, fb.. a9,50,8d .• 02,03.. a9,9a, 8d , 03 .• 03 
910 dataa9,00,a0,7f,91,fb,88,10,fb,a9,9a 

920 dataSd, 15, 03, a9, 90,8d.. 14,03, a9,8f, 8d, 00,03, a9,9c,8d, 01,03, 58/60, ea, # 

950 data48, 45, 4c, 50, 9c, c6,41,55,54,4f,9d, 61,46, 49, 4e, 44,9c, 12, 44, 55,4d, 50,9b, 56 
960 data52,45,4e,9f,12,54,52,4f,9d,C0,4d,45,52,47,45,99,3d,10,10,10,10,a0,a0 
970 data44,45,4c,45,54,45,9e,af,4b,45,59,9a,d8,00 
980 data00,00,a2,00,86,0d,85,62,84,63,a2,90,38,4c,49,bc 

1000 data68,68,a2,00,20,73,00,f0,lf,c9,22,f0,07,c9,£c,f0,12,4c,08,af,20,73,00 
1002 dataf0,f8,c9,22,f0,e7,9d,00,02,e8,d0,f1,20,73,00,29,0f,85,fe,8a,a2,00,a0 
1004 data02,20, bd, ff, a6, fe,d0,01,e8,a0,00,a9,01,20,ba,ff,a6,2d,86,f7,a4,2e,c8 
1006 data84,f8,a9,00,20,d5,ff,90,04,aa,6c,00,03,86,f9,84,fa,a9,9d,8d,02,03,a9 
1008 data99,8d,03,03,a0,01,84,0f,bl,f7,d0,03,4c,05,9f,c8,bl,f7,85,14,cS,bl,f7 
1010 data85,15,c8,84,fe,a4,14,a5,15,20,2f,99,20,dd,bd,a2,00,bd,01,01,f0,06,9d 
1012 data00,02,e8,d0,f5,a4,fe,d0,0a,c9,22,d0,06,a5,0f,49,ff,85,0f,bl,f7,f0,3f 
1014 data30,07,9d,00,02,c8,e8,d0,e9,c9,ff,f0,f5,24,0f,30,fi,38,e9,7f,86,49,84 
1016 datafe,aa,a0,ff,ca,f0,08,c8,b9,9e,a0,10,fa,30,f5,a6,49,c8,b9,9e,a0,30,06 
1018 data9d, 00,02, e8, d0, f 4, 29, 7f, 9d, 00, 02, a4, fe, c8, e8, d0, bd, 9d, 00,02, 98,3S, 65 
1020 dataf7,85,f7,90,02,e6,f8,a2,ff,a0,01,4c,86,a4,00,00,@0,00,00,00,4b,45,59 
1022 data@0,00,80 

105@ data4c,00,00,00,00,00,00,00,00,00,00,00,00,00,00,@0,00,00 ,00 

1060 data20,60,a5, 86,7a, 84,7b,a0,00,a2,00,bl,37,d0,03,4c,8a,a4,30,12,dd,00, 02 

1070 datadO,04,c8,e8,d@,ee,c8,bl,37,10,fb,c8,c8,d0,e3,8d,3f,9a,c8,bl,37 

1080 dataSd,3e,9a,a9,ff,85,3a,18,ca,86,7a,e6,7b,20,3d,9a,4c,74,a4,ea 

1160 dataa5, c5, c5,02, f0, 0d,85,02,38,e9,03,30,06,f0,07,c9,@4,30,05,4c,31,ea 

1170 dataa9,04,a8,88,98,0a,0a,0a,0a,0a,85,fd,ad,8d,02,£9,01,f0,07 

1180 data18,a5,fd,69,10,85,fd,a4,fd,a2,@0 

1190 databl, fb,f@,07,9d,77,02,c8,e8,d0,f5 

1200 data86,c6,68,a8,68,aa,68,40,ea 

1230 data20,68,9f,f0,3b 

1240 data90,03,4c,08,af,85,fe,c6,fe,a9,2c 
1250 dataa0,01,20,01,af,a5,fe,0a,0a,0a,0a 
1260 dataa8,a2,0a,20,73,00,90,0f,f0,18,c9,5f 
1270 dataf0,@7,20,13,bl,b0,04,90,d7,a9,0d 

1280 data91,fb,c8,ca,d0,e6,a2,17,6c,00 ,03 


72 


















Seguito listato 1. 

1290 dat*91,fb,60,*2,00,86,fe,*9,37,«0,9* 

1300 d*t*20, le,*b,a5,fe,18,69,31,20,d2,ff 
1305 data*9,2c,20,d2,ff,a5,fe 
1310 dat*0a, 0a,0a, 0*, *8, bl, fb,f0,0c,c9, 0d 
1320 datad0,02,*9,5f,20,d2,ff,c0,d0,f0,*9,0d 
1330 d*ta20,d2,ff,e6,fe,a5,fe,c9,08,d0,c8,60 

1350 6a.t3.ma., 20,73,00, f0, 03, 4c, 08, af, *5, 2d, 85, fe, *5,2e,85, ff, *0, 00, *9, 01,85,0d 
1360 databl,fe,S5,46,30,02,84,0d,c8,bl,fe,85,45,30,04,*9,ff,85,0d,*2,02,b5,44 
1370 dat*29,7f,20, d2,ff, cu,d0,f6,*5,0d,30,06,18,69,24,20,d2,ff,49,3d,20, d2, ff 
1380 dataa5,0d,f0,4c, a5, 0d, 30,36, c8, bl, fe, 48, c8, bl, fe, a8,68, 20, 91, b3,20, dd, bd 
1390 d*taa9,00,a0,01,20,le,ab,*9,Od,20,d2,ff,18,*5,fe,69,07,85,fe,a5,ff,69,00 
1400 dat*85,ff,c5,30,f0,03,4c,66,9b,*5,fe,c5,2f,90,f7,60 

1410 datale,c8,98,65,fe,aa,a5,ff,69,00,a8,Sa,20,a2,bb,4c,ae, 9b, a9,22,20, d2, ff 
1420 datac8,bl,fe,f0,16,aa,c8,bl,fe,85,69,c8,bl,fe,85,6a,a0,00,bl,69,20,d2,ff 
1430 datac8, ca, d0, f7, a.9,22, 20, d2, ff, 4c, b8,9b 

1440 data20,73,00, c9,2c, f0, 03,4c, 08, af, a0, 00,20, 73,00, f0, f'6, a5, 7a,c9,05, d0, t'0 
1445 dataa9,00,85,7a,20,7c,a5,a5,2b,85,f9,a5,2c,85,fa 

1450 dataa9,ff,8d,4f,9a,a2,00,*0,01,bl,f9,d0,06,a9,00,8d,4f,9a,60,c8,a5,f9 
1460 data85,5f,a5,fa,85,60,bl,f9,85,14,c8,bl,f9,85,15,c8,bd,05,02,f0,17 
1465 datac9,22,d0,03,e8,d0,f4,b1,f9 

1470 dataf0,11, dd, 05,02, dO, 03,e8,d0,e7,a2,00,f0,e3,a9,00,20,bd,a6,a0,00,bl,f9 
1480 dataaa,c8,bl,f9,85,fa,8a,85,f9,18,90,ae 

1500 dataSa,10,09,ad,4f,9a,f0,01,60,4c,74,a4,aa,a5,7a,8d,42,9a,a5,7b,3d,43,9a 

1510 dataaS, 39,8d, 40.- 9a, a5,3a, 8d, 41,9a, 8a, 4c, 3a, a4 

1550 dataaa, ce, 4e, 9a, f@, 04,8a, 4c, la, a7, a9, 3f, 20, d2, ff, 18,90, f4 

1560 data20,73,00,f0,03,4c,08,af,ad,40,9a,85,14,ad,41 , 9a,c9,ff ,de, 01 , 60,85,15 

1570 dataaS,ff,8d,4f,9a,a9,b4,8d,06,03,a9,9c, 8d, 07, 03,20, 13, a6,38, ad, 42, 9a 

1580 dataeS,5f,38,e9,04,8d,4e,9a,20,bd,a6,a9,la,6d,06,03,a9,*7,8d,07,03 

1590 dataa9,00,8d,4f,9a,60 

1600 dataa0, 00 ,8c,45,9a,8c,47,9a,a2,0a,20,73,00,d0,07,8e,44,9a,8e,46,9a,60,90,06 
1610 data84,15,86,14,d0,03,20,6b,a9,c9,2c,f0,07,c9,2d,f0,03,4c,08,af,a5,14 
1620 dataSd, 44, 9a, a5,15,8d, 45,9a, 20, 73,00,f0,07, b0, ec, 20, 6b, a9, b0,06,85, 15, a9,0a 
1630 data.85,14,a5,15,8d,47,9a,a5, 14,8d,46,9a,60 
1635 data68,68,20,0e,9d,ad,46,9a,0d,47,9a,f0,0d,a9,88 

1640 data8d,02,03,a9,9d,8d,03,03,6c,02,03,a9,50,8d,02,03,a9,9a,8d,03,03,4c,74,a4 

1645 dataac,44,9a,ad,45,9a,20,2f,99,20,dd,bd,a0,01 

1647 datab9,00,81,f@,06,99,76,02,c8,d0,f5,a9,20,99,76,02,84, c6 

1650 datalS,ad,46,9a,6d,44,9a,8d,44,9a,ad,47,9a 

1660 data6d,45,9a,3d,45,9a,b0,be,4c,50,9* 

1700 dataa9,00,Sd,49,9a,20,73,00,c9,46,f0,41,c9,4e,f0,03,4c,08,af,20,73,00 
1710 datafO,10,c9,2c,d0,f4,20,73, 00 ,c9,53,d0,ed,a9,01,8d,49,9a,a0,22,a2,06,*9,a0 
1720 data99,00,04,ad,86,02, 99,00,d8,c8,ca,d0,f1,98,18,69,22,*8,90,e8, *9,18 
1730 dataSd,08,03,a9,9e,8d,09,03,60,a9,e4,3d,08,03,a9,*7,8d,09,03,60 
1740 dataaS, 3a,c9, ff, d0, 03,4c,e4,a7,a5,39,a4,3a,cd,4a,9a,d0,05,cc,4b,9a,f0,ef 
1750 dataSd,4a,9a,8c,4b,9a,ad,49,9a,f0,07,ea,a5,c5,c9,40,f0,f9,a9,4a,85,52 
1760 d*ta*9,04,85,51,85,53,a9,22,85,50,a0,05,bl,52,91,50,88,10,f9,18,*5,50 
1770 data.69,23,35, 50, *5,52,69,28,85, 52,90, e3, a9, 22,35, 50, a9, d8,85,51, ad, 36,02 
1780 dataa0,05,91,50,88,10,fb,18,*5,50,69,28,85,50,90,ed,*5,3a,*4,39,20,2f,99 
1790 data20, dd, bd, a9, *3,3d, ea, 04, a0,01, b9,00,01, f0,08,09,30,99, ea, 04, c8, d0, f3 
1800 dataa9,a0,c0,07,f0,06,99,ea,04,c8,d0,f6,4c,e4,a7 

1900 data68,68,20,0e,9d,a2,04,bd,43,9a,95,f6,ca,d@,fS,a5,fa,d0,0a,a5,f9,c9,0a 
1910 datad0,04,a9,ff,85,fa,*5,f7,85,14,a5,f8,85,15,20,13,a6,a9,el,6d,02,03 
1920 dataa9,9e,8d,03,03,a9,00,8d,00,02,*0,01,bl,5f,f0,19,c8,c8,bl,5f,c5,fa 
1930 dataf0,04,b0,0f,90,09,88,bl,5f,c5,f9,f0,02,b0,04,38,20,a9,a4,a9,9a 
1940 dataSd,03,03,*9,50,8d,02,03,4c,74,a4 

2000 data.20,0e,9d,ad,47,9a,f0,05,a2,0e,6c,00,03,*d,46,9*,f0,f6,a5,2b,85,f7 
2010 dataa5,2c,85,f3,a0,01,bl,f7,d0,01,60,85,fa,88,bl,f7,85,f9,c8,c8,ad,44,9* 
2020 d*ta91,f7,c8,ad,45,9a,91,f7,a5,f9,85,f7,a5,fa,85,f8,18,ad,44,9a,6d,46,9a 
2030 data8d,44,9a,ad,45,9a,69,00,8d,45,9a,90,c9,a2,0f,6c,00,03 
2040 data78,a9,9a,8d,15,03,a9,90,8d,14,03,58,4c,73,00,* 
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Listato 2. Programma controller, necessario per verificare i DATA del Programmer’s Tool Kit. 


10000 
10010 
10020 
10030 
10040 
10050 
1 @060 
10070 
10080 
10100 
10110 
10120 


RESTORE 

RERDA* : I FfltO " # " THEN10010 
RERDA* : IFA*O"#"THEN10020 
FORI=0TO9 : FORJ=0TO2 : READA U,J > : NEXTJ,I 


RESTORE : C=0 : FRI NT'TI". 

T=0 : FORI=0TOACC, 0> : READA* 

T=T+ASC<R*>+ASC<RIGHT*<A*, 1>5 : NEXTI 

IFTORCC, DTHENPRINT"ERRORE NELLE LINEE"A<C,2>"-"fl<C+l,2; 
C=C+1 • IFCC3THEN10050 


DATASI .■ 5912,900.- 198, 22419, 950, 136, 15343, 1012 

DATA162,18687,1060,228,26487,1260,237,27655, 1410 

HATA271,30802,1560,216,24626,1710,184,21299,1900,0,0,2030 


Listato 3. Programma loader necessario per caricare il Tool Kit direttamente in memoria, da disco o da nastro. 


2 rem ####*######*#*#**##*##*#####*##** 

3 rei» # * 

4 rei» # Pro9rai»mer '% tool kit v2 # 

5 rei» # * 

6 rem #####*#*####**##*###**##*##*####<# 

10 if C“1 then 50 

20 Poke56,152 : Poke55,240 : clr : c»l : rem toPmem 
25 Printchr*<14>"«l *##PROORAMMER /, S TOOL KIT#** 

27 Print"SINTASSI COMANDI:" 

28 Print" " 

30 Print"HELP":print”nAUTOCin,KsteP 3": Print"IFIND,C"chr*<34>"strin9*"chr*<34>"3 

11 • 

> 

32 Print’VCveriabile/keyword3" 

34 Pr infODUMP" : Prinf'JFENt in, 3CsteP3" : Pr int"HTRONC, STEP3/C , S3 " 

35 Print"lfTROFF" : Pr int" nT'ELETEC in—Pi ne 32 [ in-3/[-fi ne 3 " 

36 Print" IKEV C n, 3 L str i n9a 3 C «-3 " : P r i nt " ST1ERGE C f i l ename 3 C , dev 3 " 

38 Print"n*attendere, Pre9o!8",; 

40 lo*d"Ptk”,8,1 

50 Poke251,128:poke252,159 : Poke770,80 : Poke771,154:poke768,143 : Poke769,156 
60 fori»0to 127 ■' Poke40832+ i, 0 : next 

70 Print"i^rogrammer'e Tool Kit ATTIVATO 8" 

80 new 


Lo scopo di questa manovra è di 
assegnare ad un file il nome “PTK” 
e il numero di periferica 8 (o I). 
d) Digitate, ancora in modo diretto: 
POKE 139, 240 : POKE 194, 152 : 
POKE 174, 0 : POKE 175, 160 
Questo fissa il punto di partenza e di 
74 


fine della zona di memoria da salva¬ 
re. 

Si darà ora SYS 62957 ed il Tool Kit 
verrà salvato direttamente su disco 
o su nastro. 

Da ora in poi sarà sufficiente carica¬ 
re il loader e dare il RUN, perché il 


Tool Kit venga caricato velocemen¬ 
te nella giusta parte della memoria. 
Con questo ultimo perfezionamento 
abbiamo terminato. 

A risentirci presto con il “ PTK 2". 
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Dal BASIC al Pascal 


La correzione dei 
programmi Pascal 


N ella quinta parte, pubblicata 
sul n. 17 di Personal Softwa¬ 
re, abbiamo visto il primo 
programma tradotto in Pascal dal 
BASIC. Qui di seguito presentiamo 
il listato BASIC del programma RE¬ 
VERSE. 

Ora passiamo ad occuparci di un 
argomento molto importante: la 
correzione dei programmi. 

La correzione dei programmi Pascal 
avviene in due fasi. 

Nella prima si eliminano tutti gli er¬ 
rori trovati dal compilatore nel ten¬ 
tativo di compilare il programma. 
All’inizio vi potrete irritare per 
quanto il compilatore sia “pignolo” 
riguardo i piccoli problemi di sintas¬ 
si, ma più tardi vorreste che il com¬ 
pilatore riuscisse a trovarvi anche gli 
errori più sfuggenti. 

Personalmente ho lavorato con cin¬ 
que compilatori Pascal, e hanno tut¬ 
ti la stessa particolarità. Presumo 
che sia una conseguenza naturale 
del modo in cui il linguaggio è defi¬ 
nito. Alcuni errori fanno sì che il 
compilatore perda la sincronizza¬ 
zione. Un tale problema fa generare 
molti messaggi di errore senza senso 
nei pezzi di programma seguenti, 
dove non esistono errori. 

La procedura giusta, dunque, consi¬ 
ste nel correggere il primo errore 
riportato. Se è uno di quelli che cau¬ 
sano problemi di sincronizzazione, 
l’inconveniente sparisce non appena 
lo si corregge. 
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— Parte sesta — 


Listato 1. // programma BASIC. 


IO print tab(22);“REVERSE" 

20 print tab(15);"CREATIVE COMPUTING" 

30 print: print: print 

100 print"REVERSE - UN GIOCO DI ABILITA " 

110 print 
130 dim a < 20) 

140 rem ***** n=numero di cifre 
150 n=9 

160 print"vuoi le regole"; 

170 input ai 

180 if letti(ai,1>='N' then 210 
190 g.osub 710 

200 rem ***** crea una lista casuale da A(l) a A(N> 
220 for k=l to n 
230 a ( k ) = k : next k 

240 for k=n to 2 step -1: j = int(<k — 1)*rnd(0)+2) 

250 t=a(k): a(k)=a(j>: a(j)-t 
260 next k 

280 rem ***** stampa la lista e inizia il gioco 
290 print: print"PARTIAMO...LA LISTA E':" 

310 t=0 

320 gosub 610 

330 print"QUANTI NE INVENTO"; 

340 input r 

350 if r=0 then 520 

360 if r<~n then 390 

370 print"OOPS! TROPPI! NE POSSO INVERTIRE » ; 

380 print"AL MASSIMO";n: GOTO 330 
390 t=t+l 

400 rem ***** inverti r n numeri e stampa la lista 
410 for k=l to int (r/2) 

420 z =a(k) 

430 a(k)=a(r-k+1) 

440 a(r-k+1)=z 
450 next k 
460 gosub 610 

470 rem ***** verifica se ho vinto 

480 for k=l to n 

490 if a(k)Ok then 330 

500 next k 

510 print"HAI VINTO IN";t;"MOSSE!":pr i nt 
520 print 

530 print"VUOI GIOCARE ANCORA (SI 0 NO)"; 

540 input ai 

550 if letti (ai,1)="S" then 210 

560 print:print"0.K. SPERO TI SIA DIVERTITO" 

570 goto 999 

600 rem ***** subroutine che stampa la lista 
610 print: for k=l to n: print a(k);: next k 
650 print: print: return 

700 rem ***** subroutine che stampa le regole 
705 print 

710 print "QUESTO E' IL GIOCO DEL. 'REVERSE. 

715 print"PER VINCERE DEVI RIORDINARE LA" 

720 print"LISTA DEI NUMERI DA 1 A";n 

730 print"IN ORDINE CRESCENTE DA SINISTRA” 
















Dal BASIC 
_al Pascal 


Seguilo listato I. 

735 print"A DESTRA. PER MUOVERE DEVI DIRMI" 
740 print"QUANTI NUMERI (DALLA SINISTRA)" 
750 print"DEVO INVERTIRE." 

755 print 

760 print"SE LA LISTA E'" 

770 print"2 3 4 5 1 6 7 8 9" 

775 print"E NE VUOI INVERTIRE 4 IL" 

780 print"RISULTATO SARA :" 

785 print"5 43216789" 

790 print"E SE ORA NE INVERTI 5 HAI VINTO" 
800 print" 1 2 3 4 5 6 7 8 9" 

830 print"PER FINIRE BATTI 0" 

840 print: return 
999 end 


Alcuni compilatori “si confondo¬ 
no” talmente tanto quando c’è un 
errore che abortiscono invece di 
continuare. Altri cercano di eseguire 
una modifica e risincronizzarsi, in 
modo da poter continuare a dare 
delle informazioni utili, per correg¬ 
gere gli errori con un passaggio uni¬ 
co attraverso il compilatore. Questi 
ultimi compilatori vanno meglio 
perchè permettono di correggere gli 
errori trovati, in modo più rapido. 


Le variabili non inizializzate 

La seconda fase della correzione 
di un programma Pascal è quella di 
fargli fare ciò che volete che faccia, 
dopo che è stato compilato con suc¬ 
cesso. Ci sono alcuni trabocchetti ai 
quali dovete stare attenti. 

C’è un punto, in particolare, che 
può causare dei problemi, perché 
qualcuno che ha programmato con 
il BASIC può non essersene accorto. 
Nel BASIC tutte le variabili usate 
nel programma vengono azzerate 
automaticamente prima che si usi¬ 
no. Quindi si può usare una variabi¬ 
le senza averle dato un valore. I pro¬ 
grammatori che usano il BASIC 
possono ignorare che, per quanto io 


sappia, il BASIC è l’unico linguag¬ 
gio di programmazione per il quale 
questo è possibile. Per tutti gli altri 
potete assumere che il valore di una 
variabile sia sconosciuto, finché non 
le avete fissato un valore per la pri¬ 
ma volta. Un’eccezione a ciò è il 
linguaggio FORTH, il quale vi co¬ 
stringe a stabilire un valore iniziale 
quando definite una variabile. Lo 
stabilire il valore iniziale di una va¬ 
riabile si chiama inizializzare. La 
mancata inizializzazione di una va¬ 
riabile significa che il programma ha 
solo dello spazio riservato nella me¬ 
moria per il valore della variabile. 
Quello che c’era nella memoria dal 
programma precedente vi rimane. 
Potrebbe succedere che la variabile 
assuma qualunque valore che le è 
permesso. Il risultato può essere di¬ 
sastroso in molti casi. 

Il caso più ovvio in cui una varia¬ 
bile non inizializzata può causare un 
problema è quello in cui la variabile 
si usa come indice di un ciclo come 
ad esempio in REPEAT-UNTIL o 
WHILE DO. Supponiamo che N sia 
un indice di ciclo come sotto: 

WHILE N<100 DO 

BEGIN 

SOMMA:=SOMMA+N; 

N:=N+1; 

END; 


Se siete fortunati, N avrà un valo¬ 
re fra 0 e 100 e il ciclo terminerà 
bene, ma con la risposta sbagliata 
per SOMMA. Nella maggior parte 
dei casi, N partirà con un valore 
molto lontano dall’intervallo desi¬ 
derato e il ciclo continuerà per mol¬ 
tissimo tempo, causando forse un 
“integer overflow" a qualche punto. 
Naturalmente, il ciclo dovrebbe es¬ 
sere preceduto da un’istruzione che 
fissa N : = 0; o qualunque altro valo¬ 
re iniziale che volete. 


Istruzioni sbagliate 

Un altro problema difficile da ri¬ 
levare nel Pascal è un punto e virgo¬ 
la nel posto sbagliato. Può essere 
collocato in modo tale da non cau¬ 
sare un errore di sintassi, ma l’istru¬ 
zione non fa più ciò che doveva. Un 
posto in cui un punto e virgola in più 
è difficile da trovare è illustrato dal¬ 
l’esempio seguente: 

EUR N:=1 IO 100 Du; 

BEGIN 

SOMMA:-SOMMA+N 

END; 

Naturalmente non usereste un 
BEGIN e un END per un’unica 
istruzione; in questo caso ho esem¬ 
plificato. Il punto e virgola, dopo 
DO termina il ciclo. Nel BASIC, per 
fare questo, vi siete abituati a una 
istruzione NEXT N. Qui, il ciclo 
non fa niente per 100 volte e poi 
elabora una sola volta l’istruzione 
composta ... che non è non esatta¬ 
mente ciò che si voleva. 

Potete crearvi molte difficoltà se 
aggiungete un punto e virgola in più 
a una struttura IF THEN ELSE. 
Tutti i sistemi Pascal che ho permet¬ 
tono un punto e virgola dopo l’ulti¬ 
ma dichiarazione in un’istruzione 
composta, anche se il Pascal non lo 
richiede. Tuttavia, nessuno dei siste- 
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mi permette un punto e virgola dopo 
l’ultimo caso in un’istruzione CASE 
(subito prima dell’END). Non so 
esattamente perché, ma è così, dun¬ 
que state attenti. 


Dividere per vincere 

Poiché il BASIC è di solito usato 
come interprete, è generalmente in¬ 
terattivo. I programmatori, a volte 
usano delle tecniche di correzione 
che sono essenzialmente dei metodi 
“prova e riprova”. Sono come i tec¬ 
nici dei primi giorni della televisio¬ 
ne, che cambiavano i tubi finché il 
televisore non funzionava, oppure 
lo riportavano in laboratorio dove 
qualcuno, che ne sapeva più di loro, 
poteva lavorarci. E così facile cam¬ 
biare un’istruzione nel BASIC, e ri¬ 
eseguire il programma, che questa 
tecnica di solito funziona. Con un 
compilatore, però, il passo compila¬ 
tivo crea dei problemi. Dobbiamo 
elevare al massimo la quantità di 
informazioni ricavata ogni volta che 
compiliamo ed eseguiamo il pro¬ 
gramma. Ci sono molte tecniche di 
programmazione di un linguaggio 
compilato che hanno come risultato 
minore sforzo nel controllare e cor¬ 
reggere. 

Guardando il programma RE¬ 
VERSE nelle versioni BASIC e Pa¬ 
scal, avete probabilmente notato 
che nella versione BASIC ci sono 
solo due subroutine. Le altre sezio¬ 
ni, che nella versione Pascal abbia¬ 
mo scritto come procedure, sono in 
linea e il programma non ne soffre, 
almeno funzionalmente. Uno dei 
motivi principali per un maggior 
uso delle procedure e delle funzioni 
nel Pascal è che è più facile corregge¬ 
re il programma. 

Avrete senz’altro sentito lo slogan 
“dividere per vincere”. Per darvene 
un esempio, supponiamo che nella 
quinta parte aveste scritto per prima 
funzione RANDOM. 
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Avendo già dichiarato le costanti e 
le variabili, perché non fare un pro¬ 
grammino veloce per controllare 
RANDOM? 

(PROGRAMMA PRINCIPAL 

BEGIN 

FOR J:=1 TO IO DO 
BEGIN 

FOR K: = 1 TO IO 
WRITELN 
END; 

END. 

Ora, se elaborate ciò che avete di 
REVERSE, ricevete dieci righe, 
ognuna di 10 numeri random, e vi 
potete convincere che RANDOM 
funziona bene. Quando siete soddi¬ 
sfatti di RANDOM basta cancellare 
il programma “principale” e scrive¬ 
re la procedura CREALISTA. 

Ora la si può controllare con un pro¬ 
gramma principale diverso. 

BEGIN 

FOR K:=1 TO 16 

BEGIN 

CREALISTA; 
FOR J: -1 TO 
WRITELN; 

END; 

END. 

A questo punto un’elaborazione 
di REVERSE dà (se CREALISTA 
non contiene errori) 16 righe di nu¬ 
meri da 1 a 9 in ordine casuale senza 
duplicati sulla stessa riga. 

Potreste volere cambiare K da 16 a 
1000, o qualcosa del genere, per ve¬ 
dere se l’elenco random non va in 
errore e ripete sempre un certo ordi¬ 
namento (il che mi è successo su 
alcuni tentativi di scrittura di RAN¬ 
DOM). 


Write, write, write 

Supponete che a questo punto 
CREALISTA si rifiuti di funzionare 
bene. Senza la possibilità di control¬ 
lare interattivamente, come nel BA¬ 
SIC, come si fa capire cosa c’è che 
non va? Parafrasando lo slogan di 
prima, “sottodividere per vincere’’. 
Inserite semplicemente alcune istru¬ 


zioni WRITE per vedere ciò che suc¬ 
cede. Faccio partire tutte le mie 
istruzioni WRITE di controllo dalla 
prima colonna, cioè senza indentar- 

> 


DO WRITE' (RANDOM:2); 


le. Il motivo è che sono più facili da 
vedere quando viene il momento di 
toglierle. Se un’istruzione non è 
molto ovvia, la commento con una 
riga di asterischi. Un po’ di riflessio¬ 
ne sui punti dove mettere le istruzio¬ 
ni WRITE, all’interno di una proce¬ 
dura che non funziona, può ridurre 
il numero di posti dove si deve cerca¬ 
re l’errore, fino a poche righe. Spes- 


DO WRITE (LISTACJI;2>; 


so l’errore diventa evidente quando 
si fanno stampare i valori delle va¬ 
riabili. La migliore strategia, natu¬ 
ralmente, è di mettere le istruzioni 
WRITE in punti tali nella procedura 
da poter vedere che le cose vanno 
come devono in un punto, ma un 
paio di righe più in là le variabili 
hanno dei valori imprevisti. 


La tecnica “fare qualcosa 
che non c’entra” 

Torniamo ai problemi di corre¬ 
zione. Cosa dovete fare quando pro¬ 
prio non riuscite a trovare la solu¬ 
zione? Basandomi su di una lunga 
esperienza, il migliore consiglio che 
vi posso dare è smettere e fare qual¬ 
cos’altro per un po’. Spesso, un er¬ 
rore che sembra impossibile da eli¬ 
minare risulta chiaro dopo un breve 
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riposo. Spesso, quando ho un pro¬ 
blema così mi viene in mente la solu¬ 
zione, o altre cose da provare, quan¬ 
do sto cercando di fare qualcosa che 
non c’entra proprio. 

La mente va in “ loop ” e continua a 
cercare sempre negli stessi posti, 
tantissime volte, quando si è stanchi 
o affaticati. Mantenete una mente 
aperta. Non eliminate alcuna possi¬ 
bilità, neanche l’ultima procedura 
che avete appena finito di controlla¬ 
re e che avete trovato “senza erro¬ 
ri”. 



Usate gli aiuti del compilatore 
per correggere 

La maggior parte dei compilatori 
è dotata di alcuni dispositivi di con¬ 
trollo. Questi possono variare da un 
minimo, che vi dice dov’era il pro¬ 
gramma quando è successo l’errore 
di elaborazione, alla possibilità di 
esaminare il programma passo per 
passo e di studiare le variabili. 
Molti compilatori hanno delle op¬ 
zioni che permettono di segnare i 
numeri di linea in modo speciale co¬ 
me commenti, così che, quando si 
corregge, il numero di linea può es¬ 
sere stampato insieme all’informa¬ 
zione sull’errore. Il mio compilatore 
genera un elenco identico al pro¬ 
gramma sorgente, tranne nel fatto 
che ogni riga è preceduta da un nu¬ 
mero, che è il valore del contatore di 
programma della prima istruzione 
generata da quella riga. 

I l messaggio di errore di esecuzione 
è accompagnato da questo numero 
ed è possibile fare un'approssima¬ 
zione di dove si era quando l’errore è 
successo. L’unico problema con 
questo approccio è che, non appena 
si corregge un errore, il contatore di 
programma cambia e bisogna ri¬ 
elencare l’output del compilatore 
per avere i nuovi valori. Un altro 
compilatore ha la capacità di ripor¬ 
tare il numero di linea, ma dovete 
aiutarlo, usando un’opzione, quan¬ 


do compilate il programma. Il pun¬ 
to è che dovete leggere il manuale 
fornito con il vostro compilatore, 
per vedere se è dotato di un disposi¬ 
tivo per aiutare la correzione. 


Non lasciatevi sfuggire l’ovvio 

È ora di dare un esempio. Quando 
facevo l’università mi guadagnavo 
un po’ di soldi aggiustando dei tele¬ 
visori per i vicini e per la gente che 
aveva sentito dire che lo facevo. Una 
sera andai in una casa e vi trovai un 
televisore che non funzionava asso¬ 
lutamente. Controllai l’uscita di 
corrente alla presa e non ne trovai. 
Poi chiesi alla persona se aveva fatto 
fare dei lavori elettrici in casa recen¬ 
temente. La risposta fu affermativa. 
Gli dissi che non c’era corrente a 
quella presa e provammo il televiso¬ 
re in un’altra. I tubi si accesero, ma 
non c’era alcuna immagine. Passai 
mezz’ora guardando diverse cose 
dentro il televisore e finalmente de¬ 
cisi che avrei dovuto portarlo in la¬ 
boratorio e tracciare i segnali. 

A casa, la sera seguente, trovai 
che mancava un segnale verticale. 
Improvvisamente la spiegazione fu 
ovvia. Due tubi, i cui numeri di tipo 
non si leggevano più, erano stati 
scambiati. Ovviamente, queste per¬ 
sone avevano tolto i tubi dal televi¬ 
sore e li avevano portati al negozio 
vicino, dove c’era una macchina per 
controllarli. Quando li rimontaro¬ 
no, scambiarono quei due che sem¬ 
bravano uguali, ma non lo erano. 
Un paio di anni di lavoro con i tele¬ 
visori mi avevano insegnato com’e¬ 
rano inseriti quei tubi e constatai 
che erano stati scambiati. 

Li rimisi nelle posizioni giuste e il 
televisore funzionò. Lo ridiedi al 
cliente e gli dissi che se mi avesse 
informato di aver fatto controllare i 
tubi, avrei per prima cosa controlla¬ 
to se ce n’erano di scambiati e avrei 
risparmiato a tutti e due del tempo e 


delle spese. Il punto è che il proprie¬ 
tario del televisore non aveva pensa¬ 
to alla possibilità, ovvia, della man¬ 
canza di corrente, e poi aveva com¬ 
plicato le cose perché non mi aveva 
dato abbastanza informazioni, ov¬ 
vie e sufficienti, tali da permettermi 
di trovare subito una soluzione al 
problema. 

Quando correggete un program¬ 
ma, non lasciatevi sfuggire gli errori 
ovvii, come una variabile non inizia- 
lizzata. A volte ho trovato di non 
aver chiamato una procedura in 
qualche punto nel programma. 

Un punto e virgola collocati male 
possono anche causare dei risultati 
strani. Se dichiarate una variabile 
(in una procedura), che ha un nome 
identico a una variabile globale, e 
poi cercate di accedere a quella glo¬ 
bale dalla procedura, possono suc¬ 
cedere cose assolutamente inusuali 
all’interno del vostro programma, 
poiché la variabile locale ha la pre¬ 
cedenza e quindi blocca l’accesso a 
quella globale. Il risultato è un pro¬ 
blema che assomiglia a una variabile 
non inizializzata. Se cercate di far 
stampare il valore della variabile al¬ 
l’interno della procedura, potreste 
capire la causa della difficoltà. Que¬ 
sto tipo di errore è particolarmente 
facile da correggere, se avete usato il 
BASIC per molto tempo e siete abi¬ 
tuati ad avere solo variabili globali, 
senza preoccuparvi di precedenze. 

Alcuni sistemi Pascal non vi per¬ 
mettono di dichiarare una costante, 
per esempio NUMERO = 64000;. Il 
TYPE di costante è deciso dal valore 
e questo sembra un INTEGER. Il 
numero, però, è troppo grande da 
poter essere rappresentato come un 
intero, e quindi c’è un errore. Biso¬ 
gna usare NUMERO = 6.4E4;, l’e¬ 
quivalente di 64000 in notazione 
scientifica, se volete rappresentare 
questo numero come costante,, per 
segnalare al compilatore che è un 
numero REAL, e non un INTE- 
GER. ■ 
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Sprite Editor 
per il TI99/4 A 


Un programma 
veramente efficiente 
per definire 
i caratteri grafici 


di Filippo Cerulo 

T utti i possessori di TI99/4 
A si trovano, prima o poi, 
di fronte alla necessità di 
definire nuovi caratteri da utilizzare 
nei programmi. Il procedimento è 
relativamente semplice e senz’altro 
più accessibile al principiante di 
analoghe costruzioni possibili su al¬ 
tri home computer. Ciò non toglie 
che quando il numero di caratteri da 
ridefinire è elevato il calcolo “ma¬ 
nuale” dell’identificatore di sagoma 
esadecimale sia molto noioso e stan¬ 
cante. Inoltre, in programmi che 
usano sprite a grandezza doppia 
ogni sagoma relativa è formata da 
quattro caratteri: quindi deve essere 
costruita su una griglia formata da 
16x16 pixel ed identificata da una 
stringa esadecimale lunga ben 64 ca¬ 
ratteri. A questo punto sembra in¬ 
evitabile demandare questi gravosi 
(e tediosi) compiti al proprio com¬ 
puter: questo è esattamente ciò che 
ho fatto. 


Qualche cenno sulla CALL CHAR | 

L’argomento ridefinizione di ca¬ 
ratteri è stato già ampiamente trat¬ 
tato anche sulle pagine di questa ri¬ 
vista ed inoltre il manuale, almeno 
su questo punto, è abbastanza chia¬ 
ro. 

Nel TI99 tutti i caratteri il cui codice 
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ASCII è compreso tra 32 e 159 pos¬ 
sono essere ridefiniti, cioè può esse¬ 
re modificata la loro sagoma. Ad 
ogni sagoma è associato un identifi¬ 
catore formato da sedici cifre esade- 
cimali. La sagoma di ogni carattere 
viene costruita su una griglia di 8x8 
pixel. Ogni cifra esadecimale dell’i¬ 
dentificatore rappresenta, secondo 
la tabella riportata nel manuale, 4 
pixel in sequenza da destra a sinistra 
e dall’alto in basso. Con l’istruzione: 
CALL CHAR (codice di carattere, 
“identificatore di sagoma”) 
si ridefinisce un carattere. Questa 
istruzione può essere usata anche 
come comando per i caratteri il cui 
codice sia compreso tra 128 e 159. 
Cioè, se si dà ad esempio il coman¬ 
do: 

CALL CHAR (129, “3C4299A- 
IA I99423C”) 

il simbolo di copyright diventa di¬ 
sponibile sulla tastiera premendo 
CTRL A. In ogni caso, i caratteri il 
cui codice sia compreso tra 32 e 127 
possono essere ridefiniti da pro¬ 
gramma, ma quando si torna in 
“modo comando” (cioè ad ogni 
stop del programma) riprendono le 
sagome originali. 

Le differenze del BASIC esteso 

In Extended BASIC possono es¬ 
sere ridefiniti solo i caratteri il cui 
codice ASCII sia compreso tra 32 e 
143. Inoltre l’istruzione CALL 
CHAR, oltre il modo usuale, ha al¬ 
tre due costruzioni sintattiche. Le 
| illustreremo con due esempi. L’i¬ 
struzione: 

100 CALL CHAR 

(65, “080C0EFFFF0E0C083C4299 

AIA 199423C”) 

ridefinisce i caratteri “A” e “B” co¬ 
me, rispettivamente, una freccia ed 
il simbolo di copyright. In BASIC 
esteso, infatti, l’identificatore può 


essere lungo fino a 64 cifre esadeci- 
mali e ridefinisce il carattere il cui 
codice è specificato nella istruzione, 
nonché i caratteri seguenti, usando 
sedici cifre esadecimali per ogni ca¬ 
rattere. L’istruzione: 

CALL CHAR (65, “080C0EFFF- 
F0E080C”, 78, “000000FFFF”) 
ridefinisce i caratteri “A” ed “N”. 
Possiamo cioè ripetere codici ed 
identificatori all’interno delle pa¬ 
rentesi senza riscrivere la CALL 
CHAR. Notate, nel caso del codice 
78, che gli zeri finali di un identifica¬ 
tore esadecimale possono essere 
omessi. Un’altra caratteristica inte¬ 
ressante (comune anche ad altri BA¬ 
SIC) è la funzione RPT$. Si tratta di 
una funzione di stringa con la se¬ 
guente sintassi: 

RPT$ (“stringa”, numero di ripeti¬ 
zioni) 

Ad esempio l’istruzione: 

200 A$ = RPT$ (“OC”,8) 
equivale a: 

200 A$ = “0C0C0C0C0C0C0C0C” 
In pratica, essa assegna ad una va¬ 
riabile di stringa una ripetizione di 
caratteri determinati. Può essere 
usata (come tutte le funzioni di 
stringa) direttamente in una CALL 
CHAR, come nell’esempio seguen¬ 
te: 

200 CALL CHAR (129, RPT$(“F”, 
16)) 

Questa istruzione ridefinisce il ca¬ 
rattere 129, “accendendo” tutti i 
pixel che lo compongono. Un cenno 
va fatto anche ad un’altra istruzione 
molto utile. La sua sintassi è: 
CALL CHARPAT (codice di carat¬ 
tere, variabile di stringa) 

Essa assegna a “variabile di stringa” 
l’identificatore esadecimale della sa¬ 
goma rappresentante il carattere il 
cui codice ASCII compare nell’i¬ 
struzione. Ad esempio: 

200 CALL CHARPAT (65,A$) 
assegna ad A$ il valore esadecimale 















Listato 1. // programma BASIC. 


100 ! * * * * SPRITE EDITOR **** 

110 ! 

120 !(C) 1984 - FILIPPO CERULO - ARCADE 

130 ! 

140 ! TEL. 0824/871190 
150 ! 

160 DIM BN$(15),HE$(15) 

170 FOR 1 = 0 TO 15 :: READ BN$(I) ,HE$(I) : : NEXT I 

180 DATA 0000,0,0001,1,0010,2,0011,3,0100,4,0101,5,0110,6,0111,7 
190 DATA 1000,8,1001,9,1010,A,1011,B,1100,C,1101,D,1110,E,1111,F 

200 FOR 1=104 TO 109 :: READ A$ :: CALL CHAR(I,A$):: NEXT I :: CALL COLOR(10,6,1 

) 

210 DATA 000000FFFF,1818181818181818,000000F8F8181818,181818F8F8,0000001F1F18181 
8,1818181F1F 

220 CALL CLEAR :: CALL CHAR(91,"3C4299A1A199423C",93,"000000FF",132,"00003C3C3C3 
C",139,"FF81818181818lFF",140,RPT$("F",16)) 

230 CALL COLOR(14,3,1) : : CALL SCREEN(15) 

240 GOSUB 770 :: CALL CHARPAT(65,B$,66,C$) : : CALL SCRIVI(7,3,B$,BN$() ) : : CALL SC 
RIVI(15,3,C$,BN$()):: CALL STAMPA(8):: CALL GET(COD) 

250 CALL CLEAR :: GOSUB 770 :: CALL STAMPA(2):: CALL MASCHERA 

260 DATA 3,8,"SPRITE EDITOR",4,8,]]]]]]]]]]]]]],8,14,EXTENDED BASIC,10,14,SOFTW 
ARE,13,14,[ 1984 BY 

270 DATA 15,14,ARCADE,19,14,PRESS ANY,21,14,KEY,1,7," SPRITE EDITOR hhhhhh",2,8 

,]]]]]]]]]]]]]] 

280 CALL CANCELLA :: RESTORE 290 :: CALL STAMPA(6) 

290 DATA 6,19,SCEGLI :,9,19,1 WRITE,11,19,"2 DISPLAY",13,19,3 STRINGA,15,19,"4 N 
EW",17,19,5 FINE 

300 CALL GET(COD):: IF COD<49 OR COD>53 THEN 300 
310 ON COD-48 GOSUB 350,490,560,660,330 
320 GOTO 280 

330 CALL CLEAR :: STOP ! FINE LOGICA DEL PROGRAMMA 
340 REM **** SBR WRITE **** 

350 CALL CANCELLA :: RESTORE 360 :: CALL STAMPA(5) 

360 DATA 6,19,WRITE,9,20,1 OVER,11,20,2 SET,13,20,3 RESET,15,20,4 STOP 
370 CALL MAGNIFY(1) : : CALL SPRITE(#2,132,5,33,17) : : X=33 :: Y=17 :: CAR=0 
380 CALL LOCATE(#2,X,Y) 

390 CALL KEY (5,COD,ST) : : IF ST=0 THEN 390 ELSE IF POS("1234ESDXWRZC",CHR$(COD) ,1 
)=0 THEN 390 

400 IF COD = 52 THEN CALL DELSPRITE(#2) : : RETURN 
410 IF COD>52 THEN 450 

420 IF COD = 49 THEN CAR=0 :: CALL COLOR(#2,5) : : GOTO 390 
430 IF COD = 50 THEN CAR=140 :: CALL COLOR(#2,2) : : GOTO 390 
440 IF COD= 51 THEN CAR=139 :: CALL COLOR(#2,16) : : GOTO 390 

450 CALL POSITION (#2 ,X , Y) : : IF CAROO THEN CALL HCHAR ( INT (X/8) +1, INT ( Y/8) +1,CAR) 
4 60 C$ =CHR$(COD) : : X = X+8*(-(POS("WER",C$,1)<>0)*(X>40) + (POS("ZXC",C$,1)<>0)*(X<1 
46) ) 

470 Y = Y+8*(-(POS("SWZ",C$,1)<>0)*(Y>24) + (POS("DRC",C$,1)<>0)*(Y<130) ) : : GOTO 380 
480 REM **** SBR DISPLAY **** 

490 CALL CANCELLA :: DISPLAY AT(3,20):"DISPLAY" :: DISPLAY AT(23,1)SIZE(18)BEEP: 
"ATTENDERE PREGO !" 

500 RESTORE 510 :: PAT$="" 

510 DATA 5,3,5,19,13,3,9,19,5,11,13,19,13,11,17,19 

520 FOR 1 = 1 TO 4 : : READ R,C,R1,C1 :: CALL LEGGI(R,C,ID$,HE$()):: PAT$ = PAT$&ID$ 
530 DISPLAY AT(R1,C1) :SEG$(ID$,1,8) : : DISPLAY AT(Rl + 2,C1)BEEP:SEG$(ID$,9,8):: NE 
XT I 
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Seguito listato I. 

540 GOSUB 680 : : RETURN 

550 REM **** SBR STRINGA **** 

560 CALL CANCELLA :: CALL MASCHERA :: CALL CHAR(128,RPT$("0",64) ) : : DISPLAY AT(3 
,22):"STRINGA" 

570 COD=128 :: PAT$="" :: RESTORE 580 
580 DATA 5,3,13,3,5,11,13,11 

590 FOR RI = 5 TO 19 STEP 4 :: CALL HCHAR(23,2,32,18) : : CALL CHARPAT(COD,B$) : : DLS 
PLAY AT(RI,19):SEG$( B$ , 1,8 ) 

600 DISPLAY AT(RI + 2,19) : SEG$(B$,9,8) : : ACCEPT AT(RI,19)SIZE(-8)VALIDATE(DIGIT,"A 
BCDEF")BEEP:Bl$ 

610 ACCEPT AT(RI+2,19)SIZE(-8)VALIDATE(DIGIT,"ABCDEF")BEEP:B2$ :: B$=B1$&B2$ :: 
PAT$ = PAT$& B$ 

620 READ R,C :: IF B$ = RPT$("0",16)THEN 640 

630 DISPLAY AT(23,1)BEEP:"ATTENDERE PREGO !" :: CALL SCRIVI(R,C,B$,BN$()) 

640 COD=COD+l :: NEXT RI :: GOSUB 680 :: RETURN 
650 REM **** SBR NEW **** 

660 CALL CANCELLA :: DISPLAY AT(23,4)BEEP:"NEW" :: CALL MASCHERA :: CALL HCHAR(2 
3,4,32,15) : : RETURN 

670 REM *** MOSTRA GLI SPRITES *** 

680 CALL CHAR(128,PAT$) : : CALL HCHAR(23,3,32,28) 

690 DISPLAY AT(23,1)SIZE(8):"COLORE ?" :: ACCEPT AT(23,11)SIZE(2)VALIDATE(DIGIT) 
BEEP:COL 

700 IF COL>16 THEN 690 ELSE IF COL=0 THEN CALL DELSPRITE(#1) : : RETURN 
710 CALL HCHAR(22,20,32,10) :: CALL HCHAR(23,20,32,10) : : CALL DELSPRITE(#1) 

720 CALL COLOR(13,COL,1) : : DISPLAY AT(22,25):"";"" :: DISPLAY AT(23,25):"";" 

II 

730 CALL SPRITE(#1,128,COL,1,161,10,0) : : CALL MAGNIFY(4) 

740 CALL COINC(#1,161,161,1,A):: IF A=0 THEN 740 

750 CALL MOTION(#1,0,0) : : CALL LOCATE(#1,161,161) : : GOTO 690 

760 REM **** STAMPA CORNICE **** 

770 CALL HCHAR(24,1,104,64) : : CALL VCHAR(1,32,105,48) : : CALL HCHAR(1,1,108):: CA 
LL HCHAR(1,32,106) 

780 CALL HCHAR(24,1,109) : : CALL HCHAR(24,32,107) : : RETURN 
790 REM **** SUB STAMPA **** 

800 SUB STAMPA(NU) : : FOR 1 = 1 TO NU :: READ R,C,S1$ :: DISPLAY AT(R,C):S1$ :: NEX 

TI:: SUBEND 

810 REM **** SUB GET **** 

820 SUB GET(COD) : : CALL SOUND(100,1047,6) 

830 CALL KEY(5,COD,ST) : : IF ST=0 THEN 830 
840 SUBEND 

850 REM **** SUB MASCHERA **** 

860 SUB MASCHERA :: FOR R=5 TO 20 :: CALL HCHAR(R,3,139,16) : : NEXT R :: SUBEND 
870 REM **** SUB CANCELLA **** 

880 SUB CANCELLA :: FOR R=3 TO 23 :: CALL HCHAR(R, 20,32,12) : : NEXT R :: CALL HCH 
AR(23,2,32,30) : : CALL HCHAR(22,2,32,30) : : SUBEND 
890 REM **** SUB BIN **** 

900 SUB BIN(A$,N) : : N=0 :: FOR 1 = 3 TO 0 STEP -1 :: N = N+VAL(SEG$(A$,4-1,1) )*2"I : 

: NEXT I : : SUBEND 

910 REM **** SUB LEGGI **** 

920 SUB LEGGI(R,C,A1$,B1$()):: Al$="" :: FOR Rl=R TO R+7 :: FOR C1=C TO C+7 STEP 
4 :: A$ = "" :: FOR C2=C1 TO Cl + 3 
930 CALL GCHAR(Ri,C2,COD) : : A$=A$&CHR$(COD-91) : : NEXT C2 
940 CALL BIN(A$,N) : : Al$=Al$&Bl$(N) i: NEXT CI :: NEXT Ri :: SUBEND 
950 REM **** SUB ESA **** 

960 SUB ESA(R,C,A$) : : FOR 1 = 1 TO 4 : : CALL HCHAR(R,C-1 + 1,ASC(SEG$(A$,1,1))+91) : : 

NEXT I : : SUBEND 
970 REM **** SUB SCRIVI **** 

980 SUB SCRIVI(R,C,A$,Al$()):: A=1 :: FOR Rl=R TO R+7 :: FOR C1=C TO C+7 STEP 4 
: : B$=SEG$(A$,A,1) 

990 IF ASC(B$)< 58 THEN K=VAL(B$)ELSE K=ASC(B$)-55 

1000 CALL ESA(R1,C1,A1$(K)) : : A = A+1 :: NEXT CI :: NEXT Ri :: SUBEND 
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“003844447C444444”. Infine l’i¬ 
struzione: 

200 CALL CHARSET 
usata in un programma ricarica le 
sagome normali in caratteri il cui 
codice sia compreso tra 32 e 127 e 
che siano stati precedentemente mo¬ 
dificati. 

Costruire uno sprite 

Il programma che vi presento ha 
come scopo principale quello di cal¬ 
colare l’identificatore esadecimale 
relativo alle sagome (esattamente 
quattro) che potete costruire, attra¬ 
verso facili procedure, su una griglia 
di 16x16 pixel ingrandita otto volte. 
Alla fine il computer vi mostra lo 
sprite (o il carattere) creato in movi¬ 
mento e con il colore voluto, sia in 
grandezza normale che doppia. Po¬ 
tete inoltre far costruire sulla griglia 
il carattere relativo ad un identifica¬ 
tore da voi inserito (anche eventual¬ 
mente per modificarlo). Vediamo 
un po’ come operare. 

Dopo la sigla il computer stampa 
la griglia ed il menu principale. Le 
scelte sono accettate tramite istru¬ 
zione CALL KEY e non INPUT, 
per evitarvi di premere ENTER ogni 
volta: quindi non vi aspettate un 
cursore lampeggiante, ma premete 
semplicemente il tasto numerico re¬ 
lativo. Esaminiamo ora, una per 
una, le opzioni possibili. 

1 WRITE: vi permette di costruire 
sulla griglia la sagoma desiderata. 
La “guida” è uno sprite, a forma di 
quadratino, che potete muovere uti¬ 
lizzando in modo usuale i tasti W, E, 
R, S, D, Z, X, C. La guida è suffi¬ 
cientemente veloce e può muoversi 
anche in diagonale. In modo WRI- 
TE (scrivi) sono possibili quattro 
opzioni e precisamente: OVER (I): 
il quadratino è blu e si muove sulla 
griglia senza altre conseguenze; SET 
(2): il quadratino è nero e “accende” 
(setta) i pixel al suo passaggio; RE¬ 
SET (3): il quadratino è bianco e 
“spegne” al suo passaggio i pixel 
eventualmente accesi; FINE (4): ri¬ 


torna al menu principale. 

Per selezionare l’opzione desiderata 
basta premere il tasto numerico re¬ 
lativo. Con un po’ di pratica la fase 
di “costruzione” della sagoma di¬ 
venta abbastanza semplice e perfino 
divertente. Potete creare una sago¬ 
ma formata da quattro caratteri (per 
uno sprite “doublé sized") o anche 
quattro sagome diverse, ognuna di 
un carattere. 

2 DISPLAY: calcola l’identificatore 
esadecimale della sagoma presente 
sulla griglia. Le cifre esadecimali so¬ 
no mostrate a gruppi di otto, sulla 
destra dello schermo, e a ogni due 
gruppi corrisponde un carattere se¬ 
condo lo schema: 

1 3 cioè dall’alto in basso e da 

destra a sinistra. Quindi il 

2 4 computer vi chiede il colo¬ 
re con il quale visualizzare la sago¬ 
ma. Dovrete perciò introdurre il co¬ 
dice del colore desiderato 

(un intero tra uno e sedici) ed il com¬ 
puter vi mostrerà in basso a destra la 
sagoma in grandezza normale, men¬ 
tre uno sprite in grandezza doppia si 
muoverà in verticalee si fermerà alla 
base dello schermo. A questo punto 
potrete cambiare ancora il colore 
della sagoma o tornare al menu 
principale, introducendo zero come 
codice di colore. In ogni caso la sa¬ 
goma sulla griglia non sarà modifi¬ 
cata. 

3 STRINGA: questa opzione vi per¬ 
mette di visualizzare sulla griglia la 
sagoma relativa ad un identificatore 
da voi inserito. Ogni eventuale sago¬ 
ma preesistente viene cancellata e 
dovete introdurre il vostro identifi¬ 
catore sulla destra dello schermo a 
gruppi di otto cifre. Ogni sedici cifre 
viene visualizzato un carattere se¬ 
condo la solita corrispondenza. Alla 
fine potrete vedere la vostra sagoma 
in grandezza normale o doppia, se¬ 
condo le modalità dell’opzione DIS¬ 
PLAY. 

4 NEW: cancella la sagoma even¬ 
tualmente esistente sulla griglia. 

5 FINE: pone termine al program¬ 
ma. 


Dopo l’esecuzione di uno qualsiasi 
dei sottoprogrammi DISPLAY e 
STRINGA potete tornare in modo 
WRITE per correggere la sagoma e 
ricalcolarne l’identificatore. Infatti, 
in generale, la prima volta che si 
costruisce una sagoma, essa non sa¬ 
rà esente da imperfezioni. Inoltre, la 
scelta del colore è fondamentale nel- 
l’esaltare o meno alcuni particolari. 
Considerando anche che il colore di 
sfondo durante il programma è gri¬ 
gio, vi consiglio di evitare, quando 
valutate la sagoma, il nero e di 
orientarvi su colori leggermente più 
sfumati (blu o verde scuro). 

Quattro passi nel listato 

Le caratteristiche peculiari del- 
l’Extended BASIC, rispetto ai lin¬ 
guaggi implementati su altri home 
computer, sono molte. Oltre alla 
grafica ed agli sprite, infatti, dispo¬ 
niamo di una grande versatilità nelle 
istruzioni di INPUT/OUTPUT su 
video e soprattutto abbiamo la pos¬ 
sibilità di scrivere sottoprogrammi 
in BASIC indipendenti dal pro¬ 
gramma principale e sostanzialmen¬ 
te diversi dalle normali subroutine. 
Questi sottoprogrammi sono attiva¬ 
ti da istruzioni del tipo: 

200 CALL nome di sottoprogram¬ 
ma (lista di parametri) 

Lo spazio non mi permette di dilun¬ 
garmi oltre su questi aspetti, peral¬ 
tro interessantissimi, del BASIC 
esteso e rimando gli approfondi¬ 
menti ad altre occasioni. Basti sape¬ 
re che le variabili usate nei sottopro¬ 
grammi sono “esclusive”, nel senso 
che non hanno nulla a che vedere 
con eventuali altre variabili con lo 
stesso nome presenti nel program¬ 
ma principale. 

Cominciamo appunto ad esami¬ 
nare i sottoprogrammi usati. Vi ac¬ 
corgerete che alcuni sono di utilizzo 
generale e possono essere trasporta¬ 
ti in altri programmi, esattamente 
come sono scritti. 

SUB STAMPA(NU) - Serve a stam¬ 
pare una serie di stringhe (esatta- 
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mente NU), inserite nel programma 
con istruzioni DATA, con la sintas¬ 
si: 

DATA riga, colonna, stringa (,....) 
Risparmia molto spazio e permette 
una facile impostazione di maschere 
video o di menu anche molto com¬ 
plessi. 

SUB GET (COD) - Simula l’istru¬ 
zione GET (o INKEYS) presente su 
altri computer. Il programma si fer¬ 
ma, emette un suono e aspetta che 
premiate un qualsiasi tasto. Il codice 
ASCII del tasto premuto è ritornato 
nella variabile COD. 

SLIB MASCHERA - Stampa la gri¬ 
glia su cui costruire la sagoma. 
SUB CANCELLA - Serve a cancel¬ 
lare la parte destra ed il bordo infe¬ 
riore dello schermo. 

SUB BIN(A$,N) - Converte un nu¬ 
mero binario di quattro cifre, conte¬ 
nuto nella variabile di stringa A$, 
nel corrispondente decimale N. E un 
sottoprogramma di uso universale. 
SUB LEGGI (R,C,A 1$, Bl$()) - 
Calcola l’identificatore di sagoma 
del carattere presente su una parte 
(8x8 pixel) della griglia. Accetta in 
input le coordinate (R,C), da cui co¬ 
minciare il calcolo, ed il vettore 
BI$(I), che corrisponde a HE$(I)del 
programma principale. Ritorna in 
A$ l’identificatore. Legge i caratteri 
sul video con una serie di CALL 
GCHAR e costruisce ogni volta un 
numero binario di quattro cifre. 
Quindi converte il numero binario 
nel decimale N: il valore esadecima- 
le corrispondente è memorizzato 
nella variabile B1$(N). 

SUB ESA (R,C,A$) - Visualizza sul¬ 
la griglia i quattro pixel relativi al 
numero binario contenuto nella va¬ 
riabile A$ indicando la riga e la co¬ 
lonna da cui cominciare. 

SUB SCRIVI (R,C,A$,A 1 $()) - Vi¬ 
sualizza sulla griglia il carattere cor¬ 
rispondente aH’identificatore conte¬ 
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nuto nella variabile A$ indicando la 
riga e la colonna da cui cominciare. 
Il vettore A1$(I) corrisponde a 
BN$(I) del programma principale. 


Diamo ora un’occhiata al listato 

Le righe 170 - 190 caricano i con¬ 
tenuti dei vettori BN$(I) e HE$(I). 
Le righe 200 - 230 ridefiniscono i 
caratteri necessari e determinano i 
colori dei caratteri e dello sfondo. 
La sigla è compresa nella riga 240: i 
caratteri che in essa appaiono in¬ 
granditi sono “A” e “B” (codici 65 e 
66), ma ognuno di voi può persona¬ 
lizzare il programma, modificando i 
codici ASCII nell’istruzione CALL 
CHARPAT. 

La riga 250 stampa la griglia e l’inte¬ 
stazione e la 280 il menu principale. 

Dopo la scelta, accettata alla linea 
300, il programma passa il controllo 
alla subroutine desiderata. In parti¬ 
colare: 

la subroutine WRITE (350 - 470) 
crea la “guida” (370) e la muove 
sulla griglia. Si noti che le istruzioni 
che muovono “fisicamente” lo spri¬ 
te, a seconda del tasto premuto, so¬ 
no soltanto due, la 460 e la 470 e ciò, 
oltre a risparmiare spazio, velocizza 
di molto il programma. Le altre 
istruzioni, invece, provocano l’effet¬ 
to desiderato (accensione o spegni¬ 
mento di pixel), a seconda del modo 
scelto. 

La subroutine DISPLAY(490-540) 
calcola, con quattro chiamate del 
sottoprogramma LEGGI, l’identifi¬ 
catore della sagoma presente sulla 
griglia. 

La subroutine STRINGA (560 - 
640) accetta, sulla destra dello scher¬ 
mo, l’identificatore che inserite e vi¬ 
sualizza la sagoma relativa, chia¬ 
mando il sottoprogramma SCRIVI. 
La subroutine NEW (660) cancella 


la sagoma esistente sulla griglia. In¬ 
oltre sono più volte utilizzate, nel 
corso del programma, le subroutine 
comprese tra le seguenti righe: 

680 - 750, che mostra i caratteri co¬ 
struiti sulla griglia nel colore deside¬ 
rato. I codici dei caratteri usati sono 
128, 129; 130,131. Nella riga 720, tra 
le virgolette, vanno inseriti i tasti di 
controllo relativi ai suddetti codici, 
e quindi le due istruzioni che mo¬ 
strano il carattere a grandezza nor¬ 
male vanno scritte come segue: 
DISPLAY AT(22,25): “(CTRL ,)”; 
“(CTRL B)” 

DISPLAY AT(23,25): “(CTRL 
A)”;“(CTRL C)” 

770 - 780, che stampa la “cornice 
dello schermo”. 


E per finire.... 

Il programma non è molto lungo 
(circa 5 Kbyte), ma si rivelerà sicura¬ 
mente utile a quanti provvederanno 
a digitarlo. Ho fatto particolare at¬ 
tenzione a costruire il listato nel mo¬ 
do più strutturato possibile, anche 
perché il BASIC esteso facilita l’uso 
di simili tecniche. Quindi ogni modi¬ 
fica che vorrete eventualmente ap¬ 
portare dovrebbe risultare agevole. 
La strada migliore per impadronirsi 
di un linguaggio, infatti, è quella di 
usarlo il più possibile, sia scrivendo 
propri programmi che modificando, 
secondo le proprie esigenze, quelli 
degli altri e l’Extended BASIC non 
sfugge di certo a questa regola. 
Buon lavoro! ■ 
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Sono di uso molto 

frequente 

nei programmi 

ad orientamento 

commerciale 


di Sergio Borsoni 

Introduzione 

C ontro l’opinione dominante 
che vede in un home compu¬ 
ter uno strumento per il tem¬ 
po libero ed il gioco, le domande che 
più di frequente mi sono state rivolte 
riguardano soprattutto applicazioni 
di tipo commerciale oltre che di na¬ 
tura didattico-scientifica. Molte 
persone conducono attività che per 
le limitate dimensioni non giustifi¬ 
cano l’acquisto di un personal da 
sette o otto milioni, oppure, prima 
di una spesa impegnativa, vogliono 
capire quali possono essere le pre¬ 
stazioni di un computer e quale la 
sua attività. In pratica vogliono spe¬ 
rimentare su piccola scala alcune 
applicazioni per acquisire gli ele¬ 
menti che potranno giustificare la 
scelta futura. Il programma del li¬ 
stato 1 si inserisce nell’area della ge¬ 
stione di magazzino ed è soltanto 
una parte semplificata di un pro¬ 
gramma completo che assolve il solo 
compito di riepilogare gli articoli 
venduti e determinarne il valore par¬ 
ziale e totale. 

Con ogni probabilità l’argomento 
interessa non solo i possessori del 
TI99/4A ma chiunque abbia un pic¬ 
colo computer. Ebbene, ho usato il 
TI BASIC invece dell'Extended BA¬ 
SIC proprio per rendere più sempli¬ 
ce la sua comprensione e più facile la 
sua conversione in un’altra versione 
di BASIC. Nella figura 6 vengono 
indicate le modifiche necessarie per 
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rendere il programma compatibile 
con i computer VIC 20 e Commodo¬ 
re 64. La memoria minima utilizzata 
non supera i 3 Kbyte. Ben più im¬ 
portante a questi fini è lo spazio oc¬ 
cupato dalla tabella. Il TI99/4A, 
senza espansione di memoria può 
contenere una tabella di 500 x 2 ele¬ 
menti, cioè, ad esempio, 500 numeri 
di codice e i rispettivi 500 prezzi uni¬ 
tari; con l’espansione di memoria 
non si riesce, come speravo, a rad¬ 
doppiare tale numero ma si arriva a 
gestire una tabella di 900 x 2 elemen¬ 
ti anche se rimane ancora molta me¬ 
moria disponibile per il programma. 

Che cos’è una tabella 

Un semplice diagramma di flusso 
può rappresentare un file-archivio, 
un file-dati e l’elaborazione di un 
file-archivio aggiornato. Un altro 
schema altrettanto elementare pre¬ 
vede un file-dati e l’elaborazione di 
un riepilogo con la consultazione di 
una tabella. Questa è una struttura 
formata da variabili con indice e vie¬ 
ne altrimenti chiamata matrice, o 
vettore, quando la matrice sia ad 
una dimensione. Non va quindi con¬ 
fusa con i “tabelloni elettronici” 


(spreadsheet) dei programmi come 
il VisiCalc o il Multiplan. L’uso del¬ 
le variabili con indice e delle matrici 
costituisce una svolta significativa 
per quanti coltivano l’hobby della 
programmazione ed anche per chi 
alla programmazione si accosta per 
motivi professionali. Generalmente 
accade che dopo aver imparato le 
istruzioni più comuni di assegnazio¬ 
ne, scrittura, salto condizionato e 
incondizionato, il primo vero sco¬ 
glio nel quale ci si imbatteè costitui¬ 
to dalle matrici; una volta superato, 
tuttavia, i programmi acquistano 
una maggiore complessità e diventa¬ 
no più potenti. 

Una tabella va intesa come un file 
residente in memoria centrale i cui 
elementi vengono consultati duran¬ 
te l’elaborazione di un altro file resi¬ 
dente su nastro. Ovviamente po¬ 
trebbe risiedere su un dischetto ma, 
se è possibile, preferisco riferire gli 
esempi alla configurazione di siste¬ 
ma più diffusa, cioè: console, televi¬ 
sore e registratore a cassette. In que¬ 
sto programma la tabella da consul¬ 
tare contiene i codici di un certo 
numero di articoli ed i relativi prezzi 
unitari. Poiché sarebbe assurdo do¬ 
ver scrivere questi dati ogni volta 
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che si avvia il programma, anche la 
tabella va memorizzata una volta 
per tutte su nastro e richiamata pri¬ 
ma di ogni elaborazione perlaquale 
sia richiesta. Quando la tabella è sta’- 
ta caricata nella memoria centrale si 
può eseguire il programma princi¬ 
pale il quale può valorizzare un cer¬ 
to numero di articoli movimentati 
ricavando la quantità da un file se¬ 
quenziale e desumendo il prezzo 
unitario dalla tabella precedente- 
mente caricata. In questo caso speci¬ 
fico l’output è dato sul video, ma chi 
possiede una stampante può, con 
l’aggiunta di poche istruzioni, otte¬ 
nere una copia permanente dell’ela¬ 
borato su carta. Chi utilizza con¬ 
temporaneamente due registratori, 
può utilizzarne uno in lettura ed uno 
per salvare i risultati dell’elabora¬ 
zione. Inoltre chi volesse utilizzare il 
programma con un numero di re¬ 
cord elevato dovrà introdurre un’i¬ 
struzione CALL KEY per interrom¬ 
pere lo scrolling verso l’alto e per 
proseguire dopo la lettura di una 
“videata” senza dover ogni volta in¬ 
terrompere il programma con il co¬ 
mando FCTN (4) e farlo riprendere 
con il comando CON (ENTER). 

Come funziona il programma 

Il programma si apre con il menu 
riportato nella figura 1. I punti 1, 2, 
3 e 4 servono per inizializzare i file 
che verranno utilizzati dal program¬ 
ma principale e percontrollareche il 
loro contenuto sia corretto. L’ela¬ 
borazione avviene al punto 5 
(STAMPA RIEPILOGO) e prevede 
necessariamente l’esistenza dei due 
file (file Tabella e file Movimenti) 
creati selezionando da menu i punti 
1 e 3. Si scelga quindi il punto I. 
Compariranno numeri progressivi e 
la richiesta di numero di codice e 
prezzo unitario. Ci si limiti a numeri 


1. CREA TABELLA 

2. STAMPA TABELLA 

3. CREA FILE MOVIMENTI 

4. STAMPA FILE MOVIMENTI 

5. STAMPA RIEPILOGO 

6. FINE PROGRAMMA 


Figura 1. // menu in apertura di pro¬ 
gramma. È necessaria l'inizializza- 
zione deI file Tabella e del file Movi¬ 
menti per l’elaborazione del riepilo¬ 
go- 


TABELLA 



CQD.: 1001 

PREZZO 

12000 

COD.: 1002 

PREZZO 

750 

COD.: 1003 

PREZZO 

1500 

COD.: 1004 

PREZZO 

0400 

COD.: 1005 

PREZZO 

6000 

premi space 

per continuare 


Figura 2. Selezionando il tasto 2 si 
ottiene la stampa de! contenuto della 
tabella, nel caso specifico i numeri di 
codice degli articoli ed i prezzi unita¬ 
ri. Non è necessario che i codici siano 
progressivi ma devono essere ordinati 
in ordine crescente. In configurazione 
base il TI99/4A può gestire 500 arti¬ 
coli. 

di codice con non più di quattro o 
cinque caratteri altrimenti in seguito 
sorgeranno problemi di tabulazione 
sul limitato display a 28 colonne del 
nostro computer. Ed ancora, la ma¬ 
trice che costituirà la tabella è stata 
dimensionata con un massimo di 
100 elementi; l’introduzione di un 
numero maggiore a 100 elementi di 
tabella provocherebbe in seguito la 
comparsa del messaggio d’errore 
BAD SUBSCRIPT per il riferimen¬ 
to ad un indice superiore a quello 
ammesso dal dimensionamento. A 
titolo esemplificativo si introducano 
i dati riportati nella figura 2.1 nume¬ 
ri di codice vanno dal 1001 al 1005 
ed i rispettivi prezzi unitari sono 


FILE MOVIMENTI 


CODICE: 

1002 

QUANTITÀ ' 

34 

CODICE: 

1002 

QUANTITÀ ' 

6 

CODICE; 

1002 

QUANTITÀ ' 

t; 

CODICE: 

1004 

QUANTITÀ ' 

12 

CODICE: 

1004 

QUANTITÀ' 

6 

CODICE: 

1005 

QUANTITÀ' 


CODICE: 

1005 

QUANTITÀ' 

10 

CODICE: 

1005 

QUANTITÀ' 

5 

CODICE: 

1005 

QUANTITÀ' 

6 

premi 

space 

per continuare 


Figura 3. Display nella fase di con¬ 
trollo del file Movimenti. 

Più record possono riguardare lo stes¬ 
so articolo e, mancando una routine 
di ordinamento, si avrà l’attenzione di 
scrivere i numeri di codice in ordine 
crescente. 



RIEPILOGO 


CODICE 

QTA 

PREZZO 

VALORE 

1002 

43 

750 

32250 

1004 

18 

8400 

151200 

1005 

24 

6000 

144000 



TOTALE 

327450 

premi 

spac:e 

per continuare 


Figura 4. Come appare l’elaborato 
finale. Tutti i movimenti riguardanti 

10 stesso articolo vengono presentati 
sotto un’unica voce comprendente il 
numero di codice dell’articolo, la 
quantità (QTA), il prezzo unitario ed 

11 valore complessivo. 

Il prezzo unitario viene desunto dal 
programma stesso con la consultazio¬ 
ne di una tabella caricata in memoria 
nella fase iniziale. 

12000, 750, ecc. Per indicare al com¬ 
puter che si è terminato bisogna scri¬ 
vere FINE alla successiva richiesta 
di codice. Naturalmente, durante 
questa prima fase di inizializzazione 
della tabella, è necessario seguire le 
indicazioni che appaiono sul video 
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Figura 5. Diagramma a blocchi riguardante la parte principale de!program¬ 
ma. 1 record del file Movimenti vengono letti ed elaborati uno alla volta 
sequenzialmente ed i loro codici confrontati con quelli presenti in tabella per 
ricavare i prezzi unitari. 



per l’uso del registratore. È altresì 
importante segnare le posizioni in¬ 
dicate dal contanastro (tape coun- 
ter) per poter ritrovare inequivoca¬ 
bilmente il File appena registrato e 
non sovrapporre a questo altre regi¬ 
strazioni. Ritornati al menu si potrà 
controllare il contenuto del file Ta¬ 
bella selezionando il numero 2. Sul 
video si vedrà quanto è illustrato 
dalla figura 2. Premendo poi la bar¬ 
ra spaziatrice (o qualsiasi altro ta¬ 
sto) si ritorna al menu principale per 
passare alla fase successiva: la crea¬ 
zione del file Movimenti. Questo po¬ 
trebbe rappresentare gli articoli ven¬ 
duti nel corso della giornata, ogni 
suo record contiene un numero di 
codice e la quantità. E anche natura¬ 
le presupporre che lo stesso articolo 
sia stato venduto più volte e che per¬ 
tanto nel file Movimenti più record 
contengano lo stesso numero di co¬ 
dice. Inoltre, non tutti gli articoli 
della tabella verranno necessaria¬ 
mente movimentati, ma tutti gli arti¬ 
coli movimentati dovranno avere i 
codici presenti in tabella. 

Importante ai fini del corretto 
funzionamento del programma è 
che i numeri di codice siano in ordi¬ 
ne crescente! Se si desidera creare un 
file Movimenti con i codici non ordi¬ 
nati sarà necessario aggiungere una 
routine per l’ordinamento in modo 
da operare sempre con file ordinati 
per numero crescente di codice. Per 
esempio, i dati potrebbero essere de¬ 
sunti dalla figura 3. 

Mentre il file Tabella viene caricato 
in memoria centrale e deve sottosta¬ 
re ai limiti imposti dal dimensiona¬ 
mento, il file Movimenti è condizio¬ 
nato solo dalla lunghezza del nastro 
magnetico in quanto i suoi record 
vengono letti ed elaborati uno alla 
volta. La figura 3 riporta il display 
durante la fase di controllo e stampa 
del file Movimenti (opzione 3 del 
menu). Anche in questo caso non si 
dimentichi di segnare i valori indica¬ 
ti dal contanastro. L’elaborazione 
consiste nel caricare in memoria la 
tabella, leggere ad uno ad uno gli 
articoli movimentati, sommare le 
88 


quantità che si riferiscono ad uno 
stesso articolo, ricavare dalla tabella 
il prezzo unitario, calcolare il valore 
(quantità x prezzo unitario) per ogni 
articolo ed infine stampare il valore 


totale. L’utente, selezionato il punto 
5 del menu, dovrà solo seguire le 
indicazioni relative all’uso del regi¬ 
stratore, il riepilogo apparirà come 
nella figura 4. 
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Uso delle tabelle 
_ con TI99/4A 


Come il programma utilizza 
la tabella 


Caricata la tabella in memoria, 
l’elaborazione del riepilogo inizia 
alla riga 1120 del programma. Viene 
letto il primo record e si salvano il 
numero di codice e la quantità. Si 
legge quindi il secondo record. Se il 
codice contiene la parola FINE si 
elabora l’unico dato letto ed il pro¬ 
gramma termina. Se il nuovo nume¬ 
ro di codice è inferiore al precedente 
viene inviato il messaggio ERRORE 
SEQUENZA ed il programma ter¬ 
mina. Se il numero di codice è lo 
stesso, si somma la nuova quantità 
alla precedente e si legge il record 
successivo. Infine, se l’ultimo codice 
letto è maggiore del precedente si¬ 
gnifica che c’è stata una “rottura di 
codice” e prima di leggere un altro 
record bisogna calcolare e stampare 
il valore relativo al primo articolo. 
In questo caso il programma passa 
alla linea 1250 dove inizia la ricerca 
nella tabella del prezzo unitario. La 
variabile CTR (contatore) costitui¬ 
sce l’indice dell’elemento della ta¬ 
bella. Si confronta il codice dell’arti¬ 
colo movimentato con il primo co¬ 
dice presente in tabella, poi con il 
secondo, con il terzo, e così via (li¬ 
nea 1280 del programma). Se i due 
codici risultano uguali il prezzo uni¬ 
tario sarà l’elemento di tabella 
PREZZOELETAB (CTR) con lo 
stesso indice. 

Se un codice del file Movimenti non 
c’è in tabella, il prezzo unitario viene 
posto uguale a zero e la elaborazio¬ 
ne continua. La figura 5 mostra il 
diagramma a blocchi relativo a que¬ 
sta parte del programma. 


Descrizione del listato 

100-240 Menu e selezione opzione. 
250-380 Creazione e registrazione 
della tabella su nastro, la particolare 
funzione TAB di linea 300 serve ad 
allineare i numeri a destra. 

390-540 Lettura e stampa della ta¬ 
bella per controllarne il contenuto, 
soprattutto l’ordine crescente dei 


TAVOLA DI CONVERSIONE 


TI BASIC 

CALL CLEAR 

CALL KEY (0. K. S) 

IF S = 0 THEN ... 

K 

(K memorizza direttamente il 
numero di codice ASCII del 
tasto premuto) 

IF (K < 49) + (K > 54) THEN ... 
(la funzione OR è disponibile 
solo in TI EXT. BASIC) 

OPEN # 4: “CSI", INPUT. 
SEQUENTIAL. 

INTERNAL. FIXED 
OPEN # 4: “CSI”. INPUT. 
SEQUENTIAL, 

INTERNAL. FIXED 

CTR 

(il TI BASIC considera tutti 
i numeri come reali) 

TOTALE 

(il TI BASIC accetta nomi di 
variabili lunghi fino a 15 
caratteri, tutti identificati) 


lo stesso dicasi per ... 

PREZZO 

COD$ 

CODELETABS (100) 
PREZZOELETAB (100) 
LASTCODS 
LASTQTA 

Display su 28 colonne. 


BASIC COMMODORE 64 
PRINT “(CLR/HOME)" 
GET A$ 

IF A$ = “ " THEN ... 

K = ASC (A$) 


IF K <49 OR K > 54 THEN ... 


OPEN 4. 1.0. “nome del file" 


OPEN 4. 1, 1, “nome del file" 


CT% 

(il BASIC Commodore distingue 
le variabili numeriche intere) 

T 

(il BASIC Commodore identifica 
solo i primi due caratteri 
delle variabili. TOTALE non si può 
usare perché viene identificata 
come la parola riservata TO) 

PZ 

co$ 

CTS (100) 

PT (100) 

LCS 

LQ 

Display su 40 colonne. 

Si possono modificare le 
funzioni TAB. 


Figura 6. Elementi di confronto per la 
Commodore 64. 

numeri di codice. 

550-700 Creazione file movimenti. 
La fase termina quando si digita FI¬ 
NE alla richiesta del codice. 
710-860 Stampa del file Movimenti 
per il controllo prima dell’elabora¬ 
zione principale. L’ultimo record 
contenente la parola FINE non vie¬ 
ne stampato (linea 770). 

870 Inizia la parte principale per l’e¬ 
laborazione del riepilogo. 

880 Dimensionamento della tabella. 
Un aumento indiscriminato dell’in¬ 
dice provoca il messaggio d’errore 
MEMORY FULL e l’arresto del 
programma. 

890-940 Apertura del file ed indica- 


conversione nei BASIC de! VIC 20 e de! 


zioni sull’uso del registratore. 
950-1010 Caricamento della tabella 
in memoria. L’ultimo elemento, 
contenente la parola FINE, non vie¬ 
ne ovviamente caricato. 

1020-1110 Inizializzazione di alcune 
variabili, apertura del file movimen¬ 
ti e stampa della testata. 

1120-1240 Lettura dei record, con¬ 
fronto tra un codice ed il successivo, 
rivelazione dell’ultimo record e di 
errori di sequenza. 

1250-1300 Consultazione della ta¬ 
bella per ricavare il prezzo unitario. 
1310-1370 Stampa di una riga di ri¬ 
epilogo. 

1380-1460 Stampa del totale, chiu- 
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sura del riepilogo e chiusura del file 
Movimenti. 

1470-1480 Fine del programma. 

Variabili usate nel programma 

K Contiene il numero di codice 
ASCII del tasto premuto. 

CTR Viene usata come contatore in 
varie fasi. 

COD$ Numero di codice (alfanu¬ 
merico) dell’articolo. 

PREZ Prezzo unitario. 


CODARTS Codice articolo letto dal 
file movimenti. 

QTA Quantità. 

CODELETABS () Elemento di ta¬ 
bella consistente nel codice dell’arti¬ 
colo. 

PREZZOELETAB () Elemento di 
tabella consistente nel prezzo unita¬ 
rio. 

TOTALE Valore complessivo degli 
articoli movimentati. 

X Contatore degli elementi di tabel¬ 
la. 


XI Numero degli elementi in tabella. 
ULTIMO Variabile flag; il suo valo¬ 
re viene posto uguale ad uno quan¬ 
do è stato letto l’ultimo record del 
file Movimenti. 

LASTCODS Ultimo codice letto 
prima dell’attuale. 

LASTQTA Ultima quantità letta 
prima dell’attuale. 

PREZZO Prezzo unitario desunto 
dalla consultazione della tabella. 
VALORE Quantità per prezzo uni¬ 
tario. ■ 


Listato 1. U programma per la creazione e l'uso di 
tabelle. 


100 REM PROVA USO TABELLA 
110 REM *********************** 


120 REM versione: TI BASIC 
130 CALI. CLEAR 


140 FRINT "1. 
150 FRINT "2. 

Il 

160 FRINT "3. 
MENTI" 

170 FRINT "4. 
VIMENTI" 

180 FRINT "5. 
GO" 

190 FRINT "6. 


CREA TABELLA" 
STAMPA TABELLA 

CREA FILE MOVI 

STAMPA FILE MO 

STAMPA RIEPILO 

FINE PROGRAMMA 


200 CALL KEY(0,K,S) 

210 IF S=0 THEM 200 

220 IF (K<49)+(K>54)THEN 200 

230 K SS K“48 

240 OM K GOTO 250,390,550,71 
0,870,1470 
250 CALL CLEAR 

260 OPEN #4:"CSI",OUTPUT,SEQ 

LJENTI AL, INTERNAL, FI XED 

270 CALL CLEAR 

280 CTR=0 

290 CTR=CTR+1 

300 PRINT TAB < 4-LEN(STR$(CTR 
)));CTR5 

310 INPUT "CODICE: ":C0D$ 

320 IF CQD$= : "FINE" THEN 340 
330 INPUT " PREZZO: ":PR 

EZ 

340 PRINT #4:C0D$,PREZ 
350 PRINT 

360 IF C0D$<>"FINE" THEN 290 


Seguilo listato I. 

370 CLOSE #4 
380 GOTO 100 
390 CALL. CLEAR 

400 OPEN #4:"CSI",INPUT ,SEQ 
DENTIAL,INTERNAL,FIXED 
410 CALL CLEAR 
420 PRINT "TABELLA" 

430 PRINT 

440 INPUT #4: CODI;, PREZ 
450 IF G0D$—"FINE" THEN 480 
460 PRINT "COD. : " ; C0DT>, "PRE 
ZZO; " ; TAB (28-L.EN (STR$ (PREZ ) ) 

);PREZ 

470 GOTO 440 
480 PRINT 

490 PRINT " premi space per¬ 
centi nuar e" 

500 CALL KEY<0,K,S) 

510 IF 8=0 THEN 500 
520 CALL CLEAR 
530 CLOSE #4 
540 GOTO 100 
550 CALL CLEAR 

560 OPEN #3 : " CS1 " , OUTPUTSEQ 
IJEMTI AL, INTERNAL, FI XED 
570 CALL CLEAR 
580 PRINT "MOVIMENTI" 

590 PRINT 
600 CTR---0 
610 CTR=CTR+1 

620 PRINT TAB(4-LEN(STR*(CTR 
>));CTR: 

630 INPUT "CODICE; ":CQDART$ 
640 IF CODART$="FINE" THEN 670 
650 INPUT " QUANTITÀ'; " ;QTA 

660 PRINT 

670 PRINT #3:CODART$,QTA 
680 IF CODART$= "FINE!" THEN 6 
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Seguilo listato I. 

90 ELSE 610 
690 CLQSE #3 
700 GOTO 100 
71.0 CAL...L CLEAR 

720 OPEN #3:"CSI",INPUT ,SEQ 

LIENTI ALXMTERMAL, FIXED 

730 CALE CLEAR 

740 PRIMI "FILE MOVIMENTI" 

750 FRINT 

760 INPUT #3: CODARTI,QTA 
770 IF CQDART!="FINE" THEN B 
00 

780 F'RIMT "CODICE: " j CODART! 

,"QUANTITÀ' : " ;TAB(29—LEN(STR 
I(QTA))); STRI(QTA) 

790 GOTO 760 
800 FRINT 

810 FRINT " premi space per 
continuare" 

820 CALI. KEY (0, K, S) 

B30 IF 5=0 THEN 820 
840 CALL CLEAR 

850 CLOSE #3 

860 GOTO 100 

870 CALL CLEAR 

880 DIM CO DEL E! TABI ( 100 ) , PREZ 

ZOELETAB(100) 

890 PRIMI "•* CARICA FILE TAB 
ELLA" 

900 OPEN #3s"CSI",INPUT ,SEQ 

□ENT I AL, I MTERMAL., FI XED 

910 TOTÀLE=0 

920 X-0 

930 PRIMI 

940 FRINT "* RUNNING 
950 INPUT #3:CODI,PREZ 
960 IF CODI™"FINE" THEN 1010 
970 x==x+:l 

980 CODELETABI(X)«CODI 

990 PREZZOELETAB(X)=PREZ 

1000 GOTO 950 

1010 CLOBE #3 

1020 X1=X 

1030 ULTIMQ=0 

1040 FRINT 

1050 PRIMI "* CARICA FILE MO 
VIMENTI" 

1060 OPEN #5;"CSI",INPUT ,SE 
OLIENTI AL, INTERNAI., FI XED 
1070 CALL CLEAR 

1080 PRI NT TAB(10);"RIEPI LOG0" 


Seguilo listato 1. 

1090 PRIMI : : 

1100 FRINT "CODICE QTA PRE 
ZZO VALORE" 

1110 PRIMI "--- 

_____ Il 

1120 INPUT #5SCODARTI,QTA 
1130 LASTCOD!=CODART! 

1140 LABTQTA=QTA 
1150 INPUT #5:CODARTI,QTA 
1160 IF CODARTIC>"FINE" THEN 
1190 

1170 ULTIMQ=1 
1180 GOTO 1250 

1190 IF CODART!>=LA5TC0D! TH 
EN 1220 

1200 FRINÌ TAB(6);"ERRORE SE 
QUEMZA" 

1210 GOTO 1450 

1220 IF CODART!>LASTCOD! THE 
N 1250 

1230 LASTQTA«LASTQTA+QTA 
1240 GOTO 1150 
1250 CTR*0 
1260 PREZZ0=0 
1270 CTR=CTR+1 

1280 IF LA5TC0D!=C0DELETAB! ( 
CTR)THEN 1300 

1290 IF CTR< X1 THEN 1270 ELS 
E 1310 

1300 PREZ ZO==PREZ ZOELET AB (CTR 
) 

1310 VALORE=LASTQTA*PREZZO 
1320 PRINT LASTCOD!;TAB(11-L 
EN(STR!(LABTQTA)) )S LASTQTA;T 
AB (18-L.EN (STR! (PREZZO) ) ) 

! PREZZO; 

1330 PRINT TAB(29-LEN(STR!(V 
ALORE) )) ? STR!(VALORE) 

1340 TOTALE=TOTALE+VALORE 
1350 LASTQTA=QTA 
1360 L.ASTCOD!=COD ART ! 

1370 IF ULTIMO-:: >1 THEN 1.150 
1380 PRIMI "- 

1390 PRINT 'TAB(14)5"TOTALE"; 
TAB(29-LEN(STR!(TOTALE)));ST 
R!(TOTALE) 

1400 F'RIMT "- 

1410 F'RINT " premi space per¬ 
ir ont :i. nuare " 

1420 CALL KEY(0,K,S) 

1430 IF S=0 THEN 1420 
1440 CALL CLEAR 
1450 CLOBE #5 
1460 GOTO 100 
1470 CALL CLEAR 
1480 END 
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— Parie quarta- 


Indirizzamento 
con puntatore 
e salti condizionati 


di Alessandro Guida 


Le possibilità di indirizzamento 
del 6502 

L a scorsa volta abbiamo vi¬ 
sto tre possibili maniere di 
trattare i dati da parte del 
6502, dette modi d’indirizzamento, 
e come con il tipo d’indirizzamento 
cambiava il codice dell’istruzione. 
L’esempio illustrava l’istruzione 
LDA per caricare un dato nell’accu¬ 
mulatore. 

I modi d’indirizzamento già visti so¬ 
no quelli sottoelencati. 

I) Indirizzamento immediato: 

LDA # $0A A9 0A 
Carica nell’accumulatore il dato ri¬ 
portato dopo l’istruzione LDA. 

2) Indirizzamento in pagina zero: 

LDA $FE A5 FE 
Carica nell’accumulatore il conte¬ 
nuto della locazione in pagina zero 
specificata dopo LDA. 

3) Indirizzamento assoluto: 

LDAS10D5 ADD5ID 
Carica nell’accumulatore il conte¬ 
nuto di una qualsiasi locazione di 
memoria. L’indirizzo di questa loca¬ 
zione, dopo l’istruzione LDA, va 
depositato in memoria secondo lo 
standard del 6502 byte-basso/byte¬ 
alto. 

L’istruzione LDA rende molto in¬ 
tuitivo il concetto di indirizzamen¬ 
to, ma quanto appena detto, e quel¬ 
lo che seguirà, è parimenti valido, 
per le altre istruzioni del 6502. Ad 
esempio, ADCSFEsommeràall’ac¬ 
cumulatore il contenuto della loca¬ 
zione $FE in pagina zero. Mentre 
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Concetto di indirizzamento con puntatore 

Istruzione: LDfì $0000,Y 



Registro Y=03 


1 ..... . 1 



indirizzo di 

partenza > 

$0000 

<> V=88 




tonni 

*1 IUU i 

<> Y-8Ì 




$fì002 

<> V=0E 


fìccumulatore 

< - 

$fì003 

<> Y--03 




$fì004 

<> Y r 84 



I 

i - 

i 


Istruzione: LDfì $14,X 


• 

Registro X-02 


t 



indirizzo di partenza > 

$0014 

<> X-00 




$0015 

<> X=01 


fìccumulatore 

4 

$0016 

<> X-02 




$0017 

<> X:03 




i 

1 



Figura 1. Illustrazione de!concetto di indirizzamento assoluto, Ye in pagina 0, 
X. 































































Indirizzamento relativo con BEQ 

indirizzo 

i 


$033C > 

F0 - BEQ 


$0330 > 

02 = +2 


$033E > 

XX se Z=0 




$033F > 

XX se Z:0 

i 

+1 ■ 


$0340 > 

XX se Z=1 

i 

/ J.O 



$0341 > 

XX 



1 ~1 

1 

1 


1 ... J 


S035C > 

XX 

<--4—| 


$0350 > 

XX 

-3 ■ 


$035E > 

F0 = BEQ 

-2 ■ 


$035F > 

FO = -4 

-1 ■ 

se Z-B 


$0360 > 

XX se Z-\ 

i 




$0361 > 

XX se Z=1 


l 

1 

' i 

i 



Figura 2. Illustrazione dell'esecuzione di diramazioni, o salti condizionati, sia 
positivi che negativi. 


ADC#$OA sommerà all’accumula- 
tore direttamente il numero 10. 
Così anche per STA dove, per fare 
un altro esempio, STA $I0D5 me¬ 
morizza il contenuto dell’accumula¬ 
tore nella locazione $I0D5. Natu¬ 
ralmente, per STA l’indirizz.amento 
immediato non è consentito. 
Vedremo di volta in volta gli indiriz¬ 
zamenti consentiti per ogni tipo di 
istruzione. 

Proseguiamo con i tipi di indiriz¬ 
zamento possibili con LDA. 

4) Indirizzamento assoluto, X: 

LDA $A000, X BD 00 A0 
Carica nell’accumulatore il conte¬ 
nuto della locazione puntata dall’in¬ 
dirizzo assoluto specificato + il con¬ 
tenuto del registro X. 

5) Indirizzamento assoluto, Y: 

LDA $A000, Y B9 00 A0 
Come per l’assoluto, X. All’indiriz¬ 
zo assoluto viene però sommato il 
contenuto di Y. 

6) Indirizzamento in pagina zero, X: 

LDA $45, X B5 45 

Come per l’assoluto, X. Però al po¬ 
sto di un indirizzo assoluto ne è pre¬ 
sente uno in pagina zero. Ad esem¬ 
pio, LDA $03, X, se X contiene$04, 
caricherà in memoria la locazione 
$07 (3 + 4). 

L’uso di questi tre tipi di indirizza¬ 
mento è evidente: si può tenere fisso 
un indirizzo base e accedere alle lo¬ 
cazioni seguenti, semplicemente 
cambiando il registro X o Y. Sono 
quindi l’ideale per la gestione di ta¬ 
belle e per la realizzazione di cicli. 
Naturalmente, la tabella dovrà esse¬ 
re ristretta a 255 elementi, poiché i 
registri interni del 6502 sono a soli 8 
bit. 

Se la tabella risiede in pagina zero o 
1, si può utilizzare l’indirizzamento 
in pagina zero, X, altrimenti si deve 
ricorrere a quello assoluto, X o Y. 
In figura I sono riportati due esempi 
di indirizzamento con puntatore. 
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Tabella codici istruzioni 



Istruzione? L.DA - Carica 

accumulator 

È 

LDX ■- Carica 

registro X 


LDY -- Carica 

registro Y 


FLAG alterati? N V B 

D I Z C 


X 

X 


Modo indirizzamento 

Codici 



LDA LDX 

LDY 

Implic ato 



Accumulatore 



Assoluto 

AD AE 

AC 

Pagi na--0 

A 5 A 6 

A4 

Immediato 

A? A 2 

AO 

Assoluto,X 

BD 

BC 

Assoluto,Y 

B9 BE 


CtND.X) 

Al 


( IND ),Y 

B1 


Pagina-0,X 

B5 

B4 

Pagina-0,Y 

B6 


Relativo 



Indiretto 



Istruzione? ADC - Somma con Carry 


FLAG alterati? N V B 

D I Z C 


X X 

X X 


Modo indirizzamento 

Codice 



ADC 


Implicato 



Accumulatore 



Assoluto 

6D 


Pagina-0 

65 


Immediato 

69 


Assoluto,X 

?D 


Asso luto,Y 

79 


(IND,X) 

£ì 


(IND),Y 

7.1 


Pagina-0,X 

*7C| 


Pagina-O,Y 



Re lativo 



Indi retto 




Tabella 1. Riepilogo istruzioni di caricamento e somma con riporto. 


OPERAZIONE 

REG. X 

FLAG 

Z N 

INX 

252 

0 

1 

INX 

253 

0 

1 

INX 

254 

0 

1 

INX 

255 

0 

1 

INX 

0 

1 

0 

INX 

1 

0 

0 

INX 

2 

0 

0 

INX 

126 

ò 

ò 

INX 

127 

0 

0 

INX 

128 

0 

1 

DEX 

5 

0 

0 

DEX 

4 

0 

0 

DEX 

2 

0 

0 

DEX 

1 

0 

0 

DEX 

0 

1 

0 

DEX 

255 

0 

1 

DEX 

254 

0 

1 

INX 

255 

0 

1 

INX 

0 

1 

0 


Figura 3. Questa figura mostra l'in¬ 
fluenza delle due istruzioni ÌNX e 
DEX sul registro X e suiflag. L’esem¬ 
pio resta valido anche per il registro Y 
e te istruzioni INY e DEY. 

Altri comandi del 6502 

A questo punto, per poter operare 
gli indirizzamenti appena visti ab¬ 
biamo bisogno di nuove istruzioni, 
che permettono di manovrare i regi¬ 
stri X e Y. 

L’istruzione per caricare un numero 
o il contenuto di una cella di memo¬ 
ria, in questi due registri è molto 
simile al LDA ed è: LDX per il regi¬ 
stro X e LDY per il registro Y. 

Il comando sarà seguito da un nu¬ 
mero, se si vuole caricare un dato in 
modo immediato, o da una locazio¬ 
ne di memoria sia in pagina zero che 
assoluta o anche sfruttando uno dei 
tipi di indirizzamento permessi e ri¬ 
portati in tabella I. 

La stessa cosa vale per l’operazione 
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inversa, cioè la memorizzazione dei 
dati contenuti nei due registri. L’e¬ 
quivalente dello STA per l'accumu¬ 
latore è STX per il registro X e STY 


per il registro Y. 

Esiste anche una serie di comandi 
che permette il trasferimentodiretto 
dei dati da un registro all’altro. 
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Eccoli: 

TAY Trasferisce l’accumulatore 
nel registro Y. 

TAX Trasferisce l’accumulatore 
nel registro X. 

TYA Trasferisce il registro Y nel¬ 
l’accumulatore. 

TXA Trasferisce il registro X nel¬ 
l’accumulatore. 

NOTA. Nel trasferimento dei dati 
da un registro all’altro il registro di 
provenienza non viene alterato. Se, 
ad esempio, l’accumulatore contie¬ 
ne 6 e operiamo un TAY, dopo il 
comando il registro Y conterrà 6 e 
l’accumulatore pure. 

Vi sono poi dei comandi che eseguo¬ 
no delle operazioni direttamente sui 
registri (figura 3): 

INY Incrementa di I il registro Y. 
INX Incrementa di I il registro X. 
DEY Decrementa di uno il registro 
Y. 

DEX Decrementa di uno il registro 
X. 

NOTA. Poiché, come abbiamo già 
visto, i registri X e Y sono a 8 bit il 
loro valore sarà sempre compreso 
tra 0 e 255. Per cui, se il registro 
contiene già 255, un’ulteriore opera¬ 
zione di incremento lo riporta a ze¬ 
ro. Viceversa, se si trova a zero, una 
operazione di decremento lo porta a 
255. 

Questi comandi formati da un solo 
byte, che operano esclusivamente 
sui registri interni al 6502, si dicono 
comandi impliciti o con indirizza¬ 
mento implicato. 

Sono le operazioni eseguite più velo¬ 
cemente dal microprocesore. 

Un esempio di applicazione 
delle nuove istruzioni 

La gestione di tabelle ricorre nella 
soluzione di numerosi problemi. In 
BASIC una tabella può essere im¬ 
maginata come un vettore, del quale 


ogni elemento costituisce un dato 
della tabella. Se, per esempio, si 
vuole copiare una tabella, formata 
da 256 elementi, residente in pagina 
zero nelle locazioni a partire da 
$C000, in BASIC si ha: 

IO IN = 0 : FI = 49152: REM Indi¬ 
rizzi di partenza e arrivo. 

20 X = 0 : REM Puntatore agli ele¬ 
menti. 

30 POKE FI + X, PEEK (IN + X) : 
REM Copia elemento num. X. 

40 X = X + 1 : REM Incrementa 
puntatore. 

50 IF X < 256 THEN 30 : REM 
Ripete se non è finita la tab. 

Questo programmino, benché mol¬ 
to semplice, impiega circa 3 secondi 
a svolgere il suo dovere. Se anziché 
256 elementi ne avessimo dovuto ri¬ 
copiare 25000, il tempo necessario a 
svolgere l’operazione in BASIC sa¬ 
rebbe salito a più di 5 minuti. 

Non è difficile riscrivere la stessa 
routine in linguaggio macchina. 
033C LDX #$00 : ‘Puntatore ele¬ 
menti tab. 

033E LDA $00, X : ‘Legge elemento 
in pag. zero 

0340 STA $C000, X : ‘Lo scrive nella 
nuova tab. 

0343 INX : ‘Incrementa puntatore 
0344 BNE — 08 : ‘Se X < >0 torna a 
$033E 

0346 RTS : ‘Ritorna al BASIC 
Lo svolgimento della routine in lin¬ 
guaggio macchina è molto simile a 
quello in BASIC, però svolto in me¬ 
no della metà di un centesimo di 
secondo. 

Dapprima viene messo il registro X, 
che funziona da puntatore nelle ta¬ 
belle, uguale a zero. L’elementoO è il 
primo, mentre il 255 è l’ultimo. 
Viene quindi letto l’elemento punta¬ 
to da X nella pagina zero, dove risie¬ 
de la tabella sorgente, utilizzando 
l’indirizzamento pagina zero, X. 

Il dato letto viene subito memo- , 


rizzato nella tabella che inizia in 
$C000, al posto puntato ancora da 
X. In questo caso si usa l’indirizza¬ 
mento assoluto, X. 

In questa maniera un elemento vie¬ 
ne preso dalla tabella sorgente e 
messo nel posto corrispondente del¬ 
la tabella di arrivo. Il posto nelledue 
tabelle è determinato da X (lo stesso 
discorso si potrebbe fare utilizzando 
il registro Y come puntatore). 
Dopo aver copiato l’elemento pun¬ 
tato da X questo registro viene in¬ 
crementato. L’operazione di incre¬ 
mento, se si supera il valore di 255, 
riporta a zero il registro in questio¬ 
ne. In questo caso viene settato il 
flag Z del 6502. 

L’istruzione seguente serve proprio 
a controllare se tale flag è settato. Se 
il flag Z è basso vuol dire che il 
registro X non ha ancora superato il 
valore di 255, e l’istruzione riporta il 
flusso del programma alla locazione 
$033E. 

In pratica il BNE (Branch Not 
Equal = Salta se diverso da zero) 
equivale alla linea BASIC: 

IF (ultima operazione)<>0 THEN 


Traducendo il listato in codice esa- 


decimale avremo: 

033C LDX #$00 A2 00 

033E LDA $00, X B5 00 

0340 STA $C000, X 9D 00 CO 
0343 INX E8 

0344 BNE - 08 DO F8 

0346 RTS 60 


Questa routine la potrete caricare in 
memoria utilizzando il programma 
pubblicato sullo scorso numero di 
Personal Software. 

Per convincersi della velocità di ese¬ 
cuzione sarà sufficiente digitare: 
SYS828. 

I flag e le istruzioni di salto 
condizionato 

La maggior parte delle istruzioni 
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viste finora causano dei cambia¬ 
menti nel registro del 6502, conte¬ 
nente i flag. 

Ad esempio LDA altera i flag N e Z. 
Il flag N viene attivato se il numero 
caricato nell’accumulatore è negati¬ 
vo (diciamo quindi che il flag N di¬ 
pende dallo stato del bit 7 del dato), 
mentre il flag Z interviene se il nu¬ 
mero è uguale a zero. Lo stesso di¬ 
scorso vale per le istruzioni INX e 
INY. 

Vi è poi una serie di istruzioni che 
permettono di controllare detti flag. 
Queste sono istruzioni di salto con¬ 
dizionato, che controllano lo stato 
di uno dei flag e in base al suo conte¬ 
nuto eseguono o meno un salto ad 
un determinato indirizzo. 

Per ora accenneremo solo a due di 
queste: BEQ e BNE. 

BEQ (Branch EQual = salta se 
uguale a zero) esegue il salto se il flag 
Z è attivato. BNE, al contrario, ese¬ 
gue il salto se il flag Z è pulito. Sia 
BNE che BEQ, e tutte le altre istru¬ 
zioni di questo genere, nel caso non 
verifichino la condizione richiesta, 
proseguono con l’istruzione succes¬ 
siva e non eseguono il salto. 
L’indirizzamento effettuato da que¬ 
ste istruzioni è detto “ relativo ”, poi¬ 
ché si esplica non come indirizzo 
assoluto a cui saltare, ma come in¬ 
cremento (o decremento) dell’indi¬ 
rizzo seguente l’istruzione di salto 
condizionato. 

Facciamo un esempio: se l’istruzio¬ 
ne BEQ si trova alla locazione 40000 
(in decimale), in 40001 vi sarà il va¬ 
lore del salto, da effettuare, suppo¬ 
niamo + 10. 

Quando il programma giungerà alla 
linea 40000, se il flag Z sarà uguale a 
0 l’esecuzione proseguirà con la lo¬ 
cazione successiva, cioè la 40002. 
Altrimenti si avrà il salto alla loca¬ 
zione 40002 + 10. 

Poiché le istruzioni di salto condi- 


Istruzione: STA 

~ Memor i zz a l ' ac: c umu l 

atore 

STX 

- Memorizza req 

i stro 

X 

STY 

- Memorizza regi 

i stro 

Y 

FLAG aIterati: 

N V B D I Z f 



Modo indirizzarne 

nto Codice 



STA STX 

STY 

Inip l i c ato 




Accumulatore 




Assoluto 

BD 

BE 

8 C 

Pagi na --0 

85 

86 

84 

Immediato 




Assoluto 7 X 

9D 



Assoluto,Y 

99 



(IND 7 X> 

81 



C INDI' ,Y 

91 



Pagina-0.X 

95 


94 

Pagina -0 .Y 
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Relativo 




Indiretto 




Istruzione: TAX 

- Trasferisce l’accumulatore 

TAY 

- Trasferisce l'acc. 

nel req 

TXA 

- Trasferisce i 

l registro X 

TYA 

-- Trasferisce i 

l req 

.Y nell’ 

FLAG alterati: 

N V B D I Z C 



X X 



Modo indirizzarne 

nto Codice 



TAX TAY 

TXA TYA 

Implic ato 

AA 

A3 

8 A 89 


NQTA: i nd i r i zza mèrito solo implicato. 

Istruzione: BEO -■ esegue salto se Z=1 
BNE - Esegue salto se Z=0 

FLAG alterati: N V B D I Z C 

Modo indirizzamento Codice 

BEQ BNE 

Relativo F0 DO 

Nota: indirizzamento soltanto relativo 


Tabella 2. Riepilogo istruzioni di memorizzazione, trasferimento tra registri e 
salto condizionato. 


zionato devono essere seguite da un 
solo byte di indirizzamento relativo, 
il campo di locazioni a cui è possibi¬ 
le saltare va da + 127 a - 128 rispet¬ 
to alla locazione successiva all’istru¬ 
zione. 

Per i salti negativi vale la regola del 


complemento a due. 

Quindi si prende il numero al positi¬ 
vo, lo si nega e si aggiunge I. 

La figura 2 esemplifica questi con¬ 
cetti e la tabella 2 fornisce un riepilo¬ 
go delle istruzioni viste. 
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P.S. propone ai propri lettori i dischi o le cassette dei programmi 
pubblicati. I programmi, provati e garantiti, sono di immediato utilizzo. 



P.S. n° 

Programma 

Sistema 

3 

La carta del cielo 
Collisione 

Apple II 

2 

Editor/Assembler 
in BASIC 

CBM 3032 

4 

Interi in precisione 
multipla 

Grafica 3D 

Apple II 

4 

Gioco del calcio 

CBM 3032 

5 

Pretty printer 

Shape table 

Apple II 

7 

Data base modulare 

Apple II 

12-13 

Wei-ch'i 

CBM 3032 

14 

Tool-Kit 

C 64 


Prezzo 

Codice 

Supporto 

30.000 

1 

Disco 

40.000 

3 

Disco 

40.000 

4 

Disco 

25.000 

5 

Disco 

30,000 

6 

Disco 

25.000 

7 

Disco 

20.000 

8 

Cassetta 

35.000 

9 

Cassetta 


Per richiedere I programmi In contrassegno, pagando direttamente al postino la cifra Indicata, Inviare II seguente tagliando 
Spedire in busta chiusa a Gruppo Editoriale Jackson - Via Rosellinl, 12 • 20124 Milano 


Inviatemi i seguenti nastri e/o dischi con i programmi 
pubblicati su P.S. 


cod. LLL 

rm 

a L. 

. Cognome 

cod. LLL 

TIP 

a L. . 

. Nome .... 

rrr 

TTT1 

a L. 

. Indirizzo 

cod. LLL 

i m 

a L. 

CAP 




Città. 



Spese postali (contributo Asso) L. 2.000 

TOTALE L. 


che pagherò al postino alla consegna del pacco. 


Firma 
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SHARP 


I numeri misteriosi 

di Mauro Lenzi 

In uno degli articoli precedenti abbiamo scoperto, 
con un metodo molto semplice, tutte le istruzioni di 
cui lo Sharp è provvisto, osservando, con molta me¬ 
raviglia, che ben dodici di queste non sono mai state 
dichiarate nel manuale di istruzioni di questo compu¬ 
ter. 

II procedimento adottato per scoprirle è estrema- 
mente elementare: consiste infatti semplicemente nel¬ 
l’andare a modificare il byte corrispondente ad una 
nota istruzione posta in un programma; cambiando 
in maniera opportuna questo numero, si possono 
infatti sostituire a quella determinata istruzione tutte 
quelle di cui il computer dispone. 

Questo è possibile perché, al fine di evitare un inutile 
spreco di memoria, un programma non è direttamen¬ 
te memorizzato dal sistema operativo lettera per let¬ 
tera, bensì viene prima “compattato”, associando ad 
ogni istruzione un determinato numero. 

È interessante notare che questo metodo di codifica¬ 
zione dei programmi è stato adottato dalla maggio¬ 
ranza dei personal computer e talvolta consente di 
immettere delle istruzioni illecite in un programma. 
Ogni linea di un programma, al momento della sua 
immissione nella memoria, viene analizzata e codifi¬ 
cata in maniera compatta col suddetto trucco di tras¬ 
formare una intera istruzione in un numero. Alcuni 
computer però, come ad esempio il DAI, prima di 
memorizzarla verificano anche che non vi siano erro¬ 
ri di sintassi, ed in caso affermativo non la accettano. 
Può però capitare di avere bisogno di utilizzare un’i¬ 
struzione il cui uso è permesso solo in maniera diretta 
e quindi non può venire accettata come istruzione di 
un programma. A prima vista il problema può sem¬ 
brare irrisolubile, ma, invece, è sufficiente molto 
spesso immettere detta istruzione già codificata al¬ 
l’interno del programma, cosi il computer non la 
analizza e la esegue senza problemi. 

A questo punto dobbiamo porci una domanda: 
come riesce il computer a riconoscere una determina¬ 
ta istruzione ed a codificarla? 

Il procedimento è molto semplice: in una certa zona 
della memoria esiste un buffer in cui sono memoriz¬ 
zate tutte le istruzioni, carattere per carattere secon¬ 
do il codice ASCII, che sono associate a dei particola¬ 
ri “numeri di riconoscimento”. Il significato di questi 
ultimi varia da calcolatore a calcolatore, ma in ogni 
caso lo scopo finale è sempre quello di far conoscere 
al sistema operativo tutto quello che deve sapere su 
ciascuna istruzione, come ad esempio la sua lunghez- 


10 X = 16384 

20 IF PEEK X =98 AND PEEK (X + 1)= 101 AND 
PEEK (X + 2) = 94 THEN BEEP 3 : PRINT X 
30 X = X + 1 : GOTO 20 


Listato 1. Il programma per la ricerca degli indirizzi di 
memoria in cui sono posti i numeri corrispondenti all'i¬ 
struzione RUN. 


10 INPUT “INDIRIZZO INIZIALE =” ; X 
20 I = PEEK X 

30 IF I > 80 AND I < 107 THEN PAUSE CHR$ (I - 
16) : GOTO 50 
40 PAUSE I 

50 X = X + 1 : GOTO 20 


Listato 2. Il programma utilizzato per trovare l’inizio e 
la fine de! buffer delle istruzioni. 

za, il suo numero di “compattazione” e l'indirizzo 
della subroutine in linguaggio macchina corrispon¬ 
dente. Così, ogni volta che introduciamo nel compu¬ 
ter una stringa di caratteri il sistema operativo andrà 
a confrontarla con quelle che ha nel suddetto buffer e 
andrà ad eseguire la giusta subroutine. 

Bene, adesso dovrebbe essere chiaro quello che 
bisogna fare per proseguire la nostra indagine all’in¬ 
terno dello Sharp: dobbiamo trovare dove è situato 
questo buffer. 

Il programma 1 è stato progettato per sondare tutta 
la memoria dello Sharp alla ricerca di questa zona 
della memoria. Il principio su cui si basa è il seguente: 
abbiamo appena detto che in questa parte della me¬ 
moria sono memorizzate tutte le istruzioni, lettera 
per lettera; allora ci sarà sicuramente, ad esempio, 
l’istruzione RUN. Quindi possiamo essere certi che 
da qualche parte della memoria ROM esistono tre 
indirizzi consecutivi in cui sono presenti i numeri 
corrispondenti, rispettivamente, alle lettere “R”, 
“U” e “N”. 

La prima cosa che viene da pensare è che questi 
numeri siano espressi in codice ASCII, come accade 
in quasi tutti i computer, ma tuttavia abbiamo già 
avuto modo di constatare sul nostro Sharp quanto 
siano originali i giapponesi e quindi credo che nessu¬ 
no si meraviglierà se le cose non sono esattamente 
come potevamo aspettarci. Questa volta, però, siamo 
stati più in gamba di loro, infatti i numeri corrispon¬ 
denti li conosciamo già! In uno degli articoli prece¬ 
denti abbiamo visto un programma che ci permetteva 
di visualizzare tutti i caratteri del nostro computer, 
scoprendone tra l’altro alcuni molto strani. Con quel 
programma si vede immediatamente che il numero 
corrispondente alla “R” è il 98, alla “U" è il 101 ed 
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alla “N” il 94, che non hanno proprio niente in 
comune con i numeri del codice ASCII. 

Un’ultima possibilità che si deve considerare, prima 
di eseguire il programma-sonda, è la sfortunata coin¬ 
cidenza di trovare nella ROM tre byte consecutivi 
uguali ai nostri tre numeri, ma che vi corrispondono 
solo casualmente. Tuttavia questa probabilità è 
estremamente bassa e, in ogni caso, ci si accorgerebbe 
molto facilmente dell’errore osservando che i numeri 
successivi non corrispondono ad altre istruzioni. 

Vediamo finalmente che cosa succede a far girare il 
nostro primo programma: dopo qualche minuto di 
attesa si udiranno tre beep ed il display visualizzerà il 
numero 17173. Abbiamo così trovato quello che sta¬ 
vamo cercando, ma dobbiamo fare ancora una cosa, 
cioè delimitare con precisione l’area del buffer, per¬ 
ché non sappiamo in che posizione sia posta l’istru¬ 
zione RUN rispetto a questo. Infatti niente deve farci 
ritenere che il comando RUN sia posto all’inizio del 
buffer oppure alla fine. 

Per circoscrivere la zona di memoria che ci interessa 
utilizzeremo il programma 2, che funziona nel modo 
seguente: dato un certo indirizzo iniziale, il computer 
cerca di interpretare come lettere i byte corrispon¬ 
denti a quell’indirizzo, ed ai seguenti, purché siano 
numeri compresi fra 81 e 106, che sappiamo corri¬ 
spondere alle lettere dell'alfabeto. 

Dando come indirizzo iniziale il nostro 17173, com¬ 
parirà sul display una lunga sequenza di lettere e 
numeri che inizierà così: 

RUN 1761 122 198 R ETU R N 222 H 30 164 RE A 
D. Vedremo così sfilare sotto i nostri occhi una buo¬ 
na parte delle istruzioni dello Sharp, fino a quando 
non inizieranno a comparire lettere e numeri senza 
senso, segno indiscutibile della fine del buffer. Per 
trovarne l’inizio dovremo dare invece degli indirizzi 
di partenza inferiori a 17173. Con qualche tentativo 
si potrà verificare che l’indirizzo iniziale è 16683, 
mentre quello finale è 17377. 

La prossima volta commenteremo lungamente 
queste nuove scoperte e vedremo che si riveleranno 
estremamente utili; per il momento mi limito a fare 
qualche piccola osservazione. Innanzitutto, come era 
da aspettarsi, troviamo normalmente elencate in que¬ 
sta lunga lista anche tutte quelle istruzioni stranissi¬ 
me che avevamo scoperto in precedenza. 

Cosa abbastanza curiosa è che siano disposte in una 
specie di ordine alfabetico, forse per permettere al 
sistema operativo un confronto più rapido. Infine, 
per chiudere con un po' di suspence, fra una istruzio¬ 
ne e la successiva si trovano quattro numeri “miste¬ 
riosi”, il cui segreto verrà svelato, almeno in parte, la 
prossima volta e ci permetteranno di giungere fino al 
“cuore” di questo computer. 


TEXAS TI99/4A 

Gestione file con un solo registratore 

di Sergio Borsani 


Uno dei compiti principali ai quali può essere adi¬ 
bito un elaboratore è quello di memorizzare e tenere 
aggiornati dei dati, utilizzando le così dette “memo¬ 
rie di massa”, cioè unità di registrazione su nastro o 
su disco. Le prime hanno l’unico vantaggio di essere 
molto più economiche; le seconde presentano la ca¬ 
ratteristica di poter accedere direttamente ad un dato 
e sono più veloci. 

Spesso mi sono sentito rivolgere la domanda su cosa 
sia possibile fare nei riguardi della gestione dei file, 
nella configurazione base, con un solo registratore. 
Francamente ritengo che le possibilità siano limitate. 
Con due unità di registrazione le cose andrebbero 
appena un po’ meglio ed è per questa ragione che 
viene fornito un cavetto con doppi attacchi, uno per 
lettura/scrittura ed un altro persola lettura (ho sapu¬ 
to recentemente che gli ultimi cavetti vengono forniti 
con un’unica uscita). 



Figura 1. Flow-chart relativo ad una elaborazione di 
file sequenziali. I simboli circolari indicano che essi 
risiedono su nastro magnetico. 


Lo schema principale, e semplificato, in questo 
genere di elaborazione è illustrato dal flow-chart di 
figura I. 

E evidente che l’unica via da seguire per chi dispone 
di un unico registratore è quella di memorizzare inte¬ 
ramente il file da aggiornare nella memoria interna 
del computer (RAM), aggiornare tale file utilizzan¬ 
done un secondo residente su nastro e quindi, termi¬ 
nate le operazioni di aggiornamento, salvare il file su 
una porzione libera del nastro, che sia ben identifica¬ 
bile con il numero del tape counter. 
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100 A*="PR0VA RECORD" 


100 A* -"PROVA RECORD" 

110 OPEN #3:"CSI",DUTPUT,SEQUENTIAL,FIXED 


110 OPEN #7; "C51 ", OUTPUT, SEQUENTIAL, FIXED 

120 FOR J=1 TO 10 


120 FOR J = 1 TO 10 

130 PRINT #3:A* 


130 PRINT 

140 NEXT J 


140 NEXT J 

150 CLOSE #3 


150 CLOSE #3 

160 DIM R*(10> 


160 DIM (10,2) 

170 OPEN #3:"CSI",INPUT ,SEGUENTIAL,FIXED 


170 OPEN #3: "CSI",INPUT , SEQUENTIAL , FIXED 

100 N«*0 


ISO N=0 

190 FOR J=1 TO 10 


190 FOR J=1 TO 10 

200 INPUT #3:A* 


200 INPUT «3:AU.NUMREC 

210 N=N+1 


210 N=N+1 

220 R$(N)=A* 


220 R*(N,1)=A* 

230 NEXT J 


225 R*(N,2J=STR*(NUMREC) 

240 CLOSE #3 


230 NEXT J 

250 CALL CLEAR 


240 CLOSE #3 

260 FOR J=1 TO 10 


250 CALL CLEAR 

270 PRINT R*(J) 


260 FOR J=1 TO 10 

280 NEXT J 


270 PRINT R*<J,1>5" ";R*(J,2> 

290 END 


280 NEXT J 

290 END 

Listato 1. Semplice programma utilizzalo per scrivere 


Listato 2. Lo stesso programma del listato 1, ma con il 

e leggere un file su nastro. 


record composto di 2 campi. 

r 


110 OPEN #3i "CSI", OUTPUT, SEGUENTI AL, INTERNAI-, FI XED 


170 OPEN #3:“CSI",INPUT , SEQUENTI AL, INTERNAI., FI XED 


Listato 3. Linee da modificare per rendere 
funzionante il programma 2. 


100 REM FILE MOVIMENTI 
110 REM ****************** 

120 CALL CLEAR 
130 N=0 

140 OPEN #3:"CSI",OUTPUT,SEGUENTIAL, 

INTERNAL,FIXED 
150 CALL CLEAR 

160 DISPLAY AT(6,1):"RECORD N." 

170 DISPLAY AT(11,1):"--" 

ISO DISPLAY AT(12,1):"COD. T QUANTITÀ'" 

190 N=N+1 

■200 DISPLAY AT(6,10):N 
210 CALL HCHAR(10,3,32,28 > 

220 ACCEF'T AT<10,1>SIZE(4):COD* 

230 IF COD*="FINE" THEN 260 

240 ACCEPT AT <10,6)VAL IDATE("EU"> SIZE (1) :TM* 

250 ACCEPT AT(10,8)VALIDATE(DIGIT)SIZE(B):QTA 

260 F'RINT #3: COD*; TM*; QTA 

270 IF C0D*O"FINE” THEN 190 

280 CLOSE #3 : ; CALL CLEAR : : END 


Listato 4. Programma per creare il file Movimenti. 

Il manuale è effettivamente povero di esempi in 
questo campo, e prima di passare a programmi più 
complessi è preferibile eseguire alcune esperienze ele¬ 
mentari. 

L’elemento principale di un file dati è il record. Un 
file è formato dalla successione di tanti record. Nel 
listato 1 i record sono tutti uguali e sono rappresenta¬ 
ti dalla stringa A$. 

Il numero che accompagna l’istruzione OPEN di 
linea 110 è a discrezione del programmatore, ma deve 
corrispondere alle successive PRINT #. “CSI” si 
riferisce all’unità di registrazione; OUTPUT indica 
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che i dati vengono trasferiti dal computer al nastro; 
inoltre, l’organizzazione può essere solo sequenziale 
(SEQUENTI AL) ed i record devono essere tutti della 
stessa lunghezza (FIXED). 

Nella seconda parte del programma (linee 160-290) 
il file viene letto e caricato nella matrice unidimensio¬ 
nale, o variabile con indice, R$ e stampato sul video. 
Il record, normalmente, non contiene una sola infor¬ 
mazione, ma è una struttura che viene suddivisa in 
più campi, contenenti informazioni elementari tra di 
loro omogenee. 

I campi di un record potrebbero contenere, ad esem¬ 
pio, nome, indirizzo e numero di telefono, oppure il 
numero di codice, la descrizione di un articolo ed il 
prezzo unitario, ecc. 

Modifichiamo il listato n. 1 alle linee 130, 160, 200, 
270 ed aggiungiamo la riga 225. Ora il record è for¬ 
mato da due campi: A$ e J nella linea 130 (listato 2). 

Se lanciate il programma, tuttavia, vi accorgerete 
che c’è qualcosa che non va. 

Si potrebbe rimediare aggiungendo una routine 
che trasformi il campo numerico in variabile stringa, 
porti i due campi ad una determinata lunghezza, 
aggiungendo space (CHR$ (32)), ed infine sommi i 
due campi in modo da ottenere un’unica stringa alfa- 
numerica. 

In fase di lettura si dovrebbe decodificare la stringa 
sapendo, ad esempio, che i primi 20 caratteri forma¬ 
no il primo campo e che i restanti 8 formano il 
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Gestione file 
con un solo registratore 


100 REM FILE GIACENZE MAGAZZINO 
110 REM **■**-*■*■»#*•***■**■******-»*'***** 

120 CALL CLEAR 

130 PRINT TAB(6>;"GIACENZE MAGAZZINO":"":"":"":"" 
140 PRINT "PREMI:" : "1. CREA FILE":"2. DISPLAY FILE" 
150 PRINT "3. RICHIAMA FILE":"4. AGGIORNA FILE" 

160 PRINT "5. REGISTRA FILE":"6. FINE PROGRAMMA":"" 
170 CALL KEY(0,K,S): : IF 5=0 THEN 170 
1 SO IF K 49 OR K>54 THEN 170 
190 K=K-48 

200 ON K GOTO 210,500,400,590,710,800 
210 CALL CLEAR 
220 N=0 

230 OPEN #3:"CSI",OUTPUT,SEQUENTIAL,INTERNAI,FIXED 
240 CALL CLEAR 

250 DISPLAY AT<6,1):"RECORD N." 

260 DISPLAY AT ( 11, 1 ) : "-- -" 

270 DISPLAY AT(12,1):"COD. ARTICOLO GIACENZA" 

280 N=N+1 

290 DISPLAY AT(6,10):N 
300 CALL HCHAR(10,3,32,28) 

310 ACCEPT AT(10,1)SIZE(4>:COD* 

320 IF COD*="FINE" THEN 350 
330 ACCEPT AT(10,6)SIZE(12): ART* 

340 ACCEPT AT(10,21)VALIDATE(DIGIT)SIZE(8):GTA 
350 PRINT «3:COD* 

360 IF CDD*="F INE" THEN 390 
370 PRINT #3:ART*,STR*(QTA) 

380 GOTO 280 

390 CALL CLEAR :: CLOSE «3 :: GOTO 120 

400 CALL CLEAR 

410 DIM CAMP*(100,3) 

420 OPEN #3:"CSI ", INPUT ,SEQUENTIAL,INTERNAL,F IXED 

430 CTR-0 

440 CTR=CTR+1 

450 INPUT #3:CAMP*<CTR,1) 


460 IF CAMr*(CTR,1>-"FINE" THEN 490 
470 INPUT # : CAMP*( CTR , 2) , CAMP*(CTR,3) 

480 GOTO 440 

490 CLOSE #3 :: CALL CLEAR : : GOTO 120 
500 CALL CLEAR : : FOR J = 1 TO CTR-1 
510 PRINT RECORD"; J; *" 

520 PRINT CAMF'* ( J, 1 ) ; TAB (6 > : CAMP* ( J , 2) I TAB (20) 1 
530 PRINT USING "44######": VAL(CAMP* ( J,3)) 

540 PRINT :: NEXT J 
550 PRINT 

560 PRINT TAB(IO) : "FINE FILE" 

570 PRINT TAB(8 ; "PREMI UN TASTO" 

580 CALL KEY(0,K,S) : : IF 5=0 THEN 580 ELSE 120 
590 CALL CLEAR 

600 OPEN #4: "CSI",INPUT ,SEOUENTIAL , INTERNAL.FIXED 

610 INPUT #4:C0D*,TM*.G>TA 

620 IF COD*="FINE" THEN 700 

630 FOR J=1 TO CTR-1 

640 IF COD* CAMP* (J, 1 ) THEN 680 

650 IF TM*="E" THEN W=1 ELSE W=-l 

660 GIACENZA VAL(CAMP*<J,3)) 

670 CAMP* (J, -, =STR*(GIACENZA+W*QTA) : : GOTO 6 l o 
680 NEXT J 

690 PRINT "ERRORE CODICE MOVIMENTO" : J :: GOTO 610 
700 CALL CLEAR :: CLOSE #4 :: GOTO 120 
710 CALL CLEAR 

720 OPEN #5: "CSI".OUTPUT,SEOUENTIAL,INTERNAL,FIXED 
730 N=0 
740 N=N+1 

750 PRINT #5:CAMP*(N,1) 

760 IF CAMF* (N, 1 )="FINE" THEN 790 
770 PRINT #5:CAMP*(N,2) ; CAMP*(N,3) 

780 BOTO 740 

790 CALL CLEAR :: CLOSE 45 :: GOTO 120 
800 CALL CLEAR : : END 


Listato 5. Programma principale che elabora /’inventario aggiornato. 


secondo campo. 

Alcuni linguaggi di tipo commerciale, come il CO¬ 
BOL, sono particolarmente adatti alla definizione 
dei campi e dei record. Ma non è detto che con il 
BASIC le cose debbano andare poi tanto male. Pro¬ 
vate a sostituire le OPEN del listato 2 con quelle del 
listato 3. 

Il manuale dà solo brevi accenni sull’uso dell’opzione 
INTERNAL, contrapposta all’altra che ha valore di 
default, DISPLAY. Se fate girare il programma vi 
convincerete che il formato INTERNAL è quello che 
fa per noi, in questa circostanza. 

Ora che sappiamo registrare e caricare un file, con 
record formati da più campi, siamo in grado di af¬ 
frontare un programma più complesso. Immaginia¬ 
mo di voler aggiornare un file con le giacenze di 
magazzino (file Inventario), utilizzando i dati di un 
secondo file (file Movimenti). 

Il record dell’inventario è formalo da tre campi: 
codice, descrizione articolo e quantità in giacenza; il 
record movimento è anch’esso formato da tre campi: 
codice, tipo movimento (Entrata/Uscita) e quantità. 

I numeri di codice dei due tipi di record dovranno 
corrispondere, anche se non tutti gli articoli dell’in¬ 
ventario saranno interessati da variazioni. 

Le operazioni dovranno susseguirsi con il seguente 


ordine: creare i due file con i due distinti programmi 
riportati nei listati 4 e 5, caricare in memoria il file 
con le giacenze di magazzino, utilizzando il program¬ 
ma principale (listato 5) e infine, sempre con lo stesso 
programma, elaborare l’inventario aggiornato. 

La matrice che contiene il file Inventario è stata 
dimensionata a 100. Tale valore può essere aumenta¬ 
to ed è limitato solo dalle capacità di memoria del 
computer; è tuttavia evidente che in tal modo non 
potrà mai essere elaborato un file con un numero 
elevato di record. 

Per finire, alcuni brevi commenti. 

Si sarebbe potuto utilizzare il TI BASIC, ma si è 
preferito il TI Extended BASIC per la presenza delle 
istruzioni DISPLAY AT ed ACCEPT AT (con le 
opzioni VALIDATE e SIZE), che permettono di 
creare una “maschera” per l’introduzione dei dati. 

Con il registratore non si può usare l’istruzione 
EOF (End Of File), pertanto bisogna fare in modo 
che l’ultimo record sia riconoscibile tramite un cam¬ 
po particolare, di solito il primo. Se esso è alfanume¬ 
rico, si può occupare con la parola “FINE” (soluzio¬ 
ne qui adottata), se invece è numerico si riempie, 
secondo le circostanze, di zeri o di 9. 

Attenzione a non sovrapporre programmi e file dati 
durante le registrazioni! 
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ZX SPECTRUM 


Semplificazione della procedura 
di IN da tastiera 

di Marcello Spero 

Questa volta vediamo una routine che, nata per 
restituire la compatibilità fra il software scritto per le 
versioni ONE e TWO dello Spectrum e la più recente 
ISSUE THREE, si è arricchita strada facendo di 
elementi che possono renderla interessante, anche 
indipendentemente da questo problema; il suo uso 
consente infatti di semplificare notevolmente i calcoli 
richiesti per trovare i valori appropriati da dare come 
argomento ad una istruzione IN, affinché questa leg¬ 
ga lo stato del o dei tasti desiderati. Ma vediamo le 
cose dall’inizio. 

A partire dal Natale scorso è iniziata anche sul nostro 
mercato la distribuzione della nuova versione dello 
Spectrum, la ISSUE THREE. 

Il motivo che ha spinto i tecnici della Sinclair a 
sostituire la vecchia ISSUE TWO pare sia duplice: da 
un lato la necessità di poter montare memorie di varie 
marche diverse, a seconda della disponibilità (l’IS- 
SUE TWO era legata all’utilizzo di integrati Texas o 
Texas compatibili), dall’altro i problemi sperimentati 
con vari tipi di televisore nella corretta riproduzione 


dei colori e dei caratteri. 

La realizzazione di questi obiettivi ha portato ad 
una macchina senz’altro più affidabile, ma ha anche 
introdotto qualche leggera differenza di funziona¬ 
mento, rispetto alle precedenti versioni. 

Una di queste differenze, in particolare, coinvolge 
direttamente il BASIC e provoca una non perfetta 
compatibilità del software prodotto per le versioni 
precedenti con la ISSUE THREE. 

Per la verità, il problema salta fuori veramente di 
rado, poiché raramente viene usata l’istruzioneche lo 
provoca: IN. 

Senza scendere nei dettagli (chi volesse approfondire 
può fare riferimento al manuale) ricorderemo che la 
funzione IN serve a leggere il valore presente in un 
dato istante su di un certo “port” (canale di ingres¬ 
so/uscita), specificato come argomento della stessa 
funzione. Nel caso più normale, quello cioè di uno 
Spectrum senza hardware aggiuntivo da cui ricevere 
dati attraverso i port, l’unico uso possibile di IN è la 
lettura dei segnali provenienti dalla tastiera e dalla 
presa EAR. 

La lettura della tastiera effettuata in questo modo, 
piuttosto che per mezzo di INKEYS, risulta più im¬ 
mediata e flessibile, permettendo tra l’altro di recepi¬ 
re la pressione anche del solo tasto SHIFT o SIM- 
BOL SHIFT, nonché di due tasti contemporanea¬ 
mente (vedi Personal Software n. 7). 


Figura 1. La suddivisione in semirighe e i numeri d’ordine dei tasti da usare con la routine. 



S = SEMIRIGA (PARAMETRO Y) 
T = TASTO (PARAMETRO X) 
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Semplificazione 
della procedura 
di IN da tastiera 
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Figura 2. Struttura del byte dati, Ietto da ciascun pori 
di tastiera. 

Queste caratteristiche fanno sì che IN venga talvolta 
usata in programmi di gioco, appunto al posto di 
INKEYS. E qui iniziano i problemi. 

Come vedete dalla figura 2, i dati relativi alla ta¬ 
stiera occupano, per ciascuno dei port interessati (li 
trovate in figura 3), solo i primi cinque bit. Il settimo 
bit riporta invece, per tutti i port di tastiera, il valore 
presente alla presa EAR. 

Ciascun tasto è rappresentato, all’interno del proprio 
port, dal bit corrispondente alla sua posizione rispet¬ 
to all’esterno della macchina. Il tasto “1” sarà quindi 
indicato dal bit 0, mentre il “5” dal 4; dal 4 del 
proprio port sarà indicato la “Y”, e dallo 0 il “P”. 
La prassi corretta per la lettura di un port strutturato 
in questo modo è l’isolamento del bit che ci interessa 
e quindi la lettura del suo valore, che sarà I se il tasto 
corrispondente non è premuto, o 0 in caso sia invece 
premuto. In BASIC, però, una tale operazione è 
complicata; molti (anche produttori di softwarecom- 
merciale ...) hanno perciò preferito leggere tutti insie¬ 
me i bit del port come un numero, deducendo poi dal 
suo valore quali sono i bit a zero e quali ad uno. 

Un procedimento di questo tipo può funzionare 
però solamente se si conoscono i valori assunti da 
tutti i bit del port nelle diverse situazioni. La pratica 
aveva insegnato che, sia i bit non utilizzati che quello 
dedicato alla presa EAR mantenevano un valore co¬ 
stante di UNO, in condizioni normali. 

Quindi: nessun tasto premuto, uguale bit 0-4 ad uno; 
bit 5-7 sempre ad uno, risultato 255 (BIN 11111111) 
come valore indicante “nessun tasto premuto”. 
Pare però che le cose non vadano più in questo modo 
con l’ISSUE TEIREE; il valore dei port di tastiera, 
indicante “nessun tasto premuto” sembra sia 191 
(BIN 101 1 I 11 I ), che indicherebbe come zero il valore 
normale del bit relativo alla presa EAR. 

11 punto non è però l’aver trovato o meno questo 
nuovo valore, ma avere un sistema che consenta al 
software scritto in BASIC di essere indipendente dal¬ 
la versione (ONE, TWO, THREE e chissà, forse 
FOUR ...) di Spectrum utilizzata, e quindi una lettura 
con la funzione IN che non tenga conto dei bit che 
non interessano. 

Questo è appunto quanto svolge la routine in lin- 


PORT 

TASTI 

LETTI 

65378 

CfiP5 

SHIFT - U 

65022 

fi - G 


64-510 

Q - T 


634-86 

1-5 


614-38 

0-6 


5734.2 

P - Y 


49150 

ENTER 

- H 

32766 

SPRCE 

- B 


Figura 3. Elenco dei port e relativi tasti letti. 
guaggio macchina che vedete nel listato 1. 

Vale la pena innanzitutto di considerare il partico¬ 
lare sistema usato per passare i parametri alla su¬ 
broutine. Mentre, infatti, il passaggio di dati dal 
linguaggio macchina al BASIC può avvenire sempli¬ 
cemente attraverso il registro BC dello Z80, il cui 
contenuto diventa il valoredella USR al termine della 
sua esecuzione, per fornire dati ad una subroutine in 
linguaggio macchina dal BASIC normalmente è ne¬ 
cessario ricorrere a delle POKE. 

Questo sistema nel nostro caso è però inaccettabile, 
poiché fa perdere al software proprio la linearità e 
semplicità che cerchiamo di restituirgli. 

Il sistema adottato si serve invece di una DEF FN, 
che contiene il salto al linguaggio macchina; verrà 
richiamata dal BASIC con FN ogni qual volta sarà 
necessario. Proprio l’uso di queste istruzioni rende 
possibile un efficiente passaggio di dati alla subrouti¬ 
ne: definendo infatti una DEF FN i (a, b) = USR 
“indirizzo di inizio” e richiamandola con ... FN i (x, 
y), dove x e y sono particolari valori (nel nostro caso 
riguardanti il tasto da leggere), questi verranno prati¬ 
camente “introdotti” nella DEF FN. Al momento 
immediatamente seguente ogni chiamata l'istruzione 
DEF FN verrà ad avere la forma: 

DEF FN i (xOE XX XX XX XX XX, y 0E YY YY Y,Y 
YY YY) = ... 

in cui i cinque byte indicati con XX contengono il 
valore del parametro passato con la x, nella forma 
(un byte di esponente e quattro di mantissa) spiegata 
dal manuale nel capitolo riguardante le modalità di 
memorizzazione dei numeri. La stessa cosa è valida 
per i cinque byte indicati da YY, i quali contengono il 
valore del parametro y. In particolare nel nostro 
caso, essendo i dati, come vedremo, numeri interi e 
minori di 255, l’unico byte contenente una cifra signi¬ 
ficativa sarà il terzo di ciascun parametro. Rimane da 
definire il modo in cui la subroutine potrà accedere a 
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org 50000 


equ 23563 DEFADD 


•RECUPERO POS. TASTO 

50000 2A 0B 5C 

ld hi/ (DEFADD! 

50003 11 04- 00 

Id de /4 

50006 19 

add hl/de 

50007 4-6 

ld b/ (hi) 

'CONTROLLO UALIDITA' 

' UALORE OTTENUTO 


50008 78 

l d a / b 

50009 FE 06 

cp 6 

50011 30 22 

j r n c .. ERR 

RECUPERO UALORE 

SEMIRIGA 

50013 19 

add hl/de 

50014 19 

add hl..de 

50015 4E 

ld C / (hi) 

CONTROLLO UALIDITA' 

^ UALORE OTTENUTO 


50016 79 

ld a / c 

50017 FE 09 

cp 9 

50019 30 1A 

Jr n c/ERR 

CREAZIONE DEL UALORE 

DEL PORT CORRISPONDENTE 

50021 C5 

push bC 

50022 1E FE 

ld e/254 

50024 41 

ld b / C 

50025 3E FF 

ld 3/255 

50027 B7 

asso 

or a 


Listato 1. Assembly della routine. 

questi dati. La maniera più semplice sfrutta il metodo 
usato normalmente dal sistema per recuperare i para¬ 
metri delle normali FN. Non appena viene incontrata 
una istruzione che contiene una FN valida (cioè in 
armonia per nome e per numero e tipo dei parametri 
con una DEF FN esistente all’interno del program¬ 
ma) la variabile di sistema DEFADD (23563) viene 
fatta puntare al nome della prima delle variabili co¬ 
stituenti i parametri aN’interno della DEF FN inte¬ 
ressata. Basterà a questo punto incrementare di 4 tale 
valore per ottenere l’indirizzo del terzo byte della 
variabile stessa, che è appunto quello che ci interessa. 
Successivamente incrementeremo questo valore di 8 
per avere l’indirizzo del terzo byte della seconda 
variabile. 

Tutto questo si può esprimere in BASIC come: 

LET a = PEEK 23563 

LET a = a + 4 


LET a = a + 8 
e in Assembly come: 

LD HL, (23563) 
LD DE, 4 
ADD HL, DE 


50028 17 

50029 10 FD 
50031 57 


ria 

djnz loop 
I d d , a 


; LETTURA DELLO 

50032 D5 

50033 CI 

50034. ED 78 

* 


TflSTZERO 

puah de 
pop bc 
in a , ( c ), 

-r~ 


; ISOLOMENTO BIT 
50036 CI 

50038 10 FD 


UOLUTO 
pop bc 
r ra 

djnz LOOP2 


'CREAZIONE DEL UALORE 
^ DO PASSARE OLLA FN 


50040 

3F 


ccf 

50041 

3E 

00 

ld 

50043 

CE 

00 

ad c 

50045 

4F 


ld 

50046 

C9 


re t 


0 


ROUTINE DI ERRORE 
PRODUZIONE DEL SUONO 
'E DEL UALORE PER LA FN 


5004-7 1E 
5004-9 21 
50052 CD 
50055 01 
50058 C9 


FF 

ce 00 
B5 03 
02 00 


Id e.255 
Id hi/&00C8 
cali &03B5 
Id bC/2 
re t 


Seguito listato 1. 


I 


I 


ADD HL, DE 
ADD HL, DE 

Questo metodo può essere utilmente applicato a 
qualsiasi routine in linguaggio macchina, che necessi¬ 
ti di dati provenienti dal BASIC. 

Vediamo adesso il funzionamento della routine vera 
e propria. 

L’istruzione (per l’esattezza si tratta di una funzione) 
IN viene usata nella forma: 

IN p 

dove p è il numero che contraddistingue il port da cui 
vogliamo leggere. Per conoscere lo stato di un parti¬ 
colare tasto dovremmo a questo punto eseguire dei 
controlli sul valore ottenuto, controlli che, come ab¬ 
biamo visto, sono possibili solo a patto di conoscere 
il valore assunto dal port quando non è premuto 
alcun tasto. 

Usando invece la nostra routine potremo sostituire a 
questo procedimento una istruzione: 

LET a = FN i (x, y) 

dove x sarà il numero d’ordine del tasto partendo 
dall’esterno, per ciascuna semiriga di cinque, e y sarà 
il numero d’ordine della semiriga. Tutto questo è più 
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4-2 , 


92 , 

17, 

4 , 

0, 

25 , 

70, 

120, 

254., 

6 . 

48, 

34, 

25, 

25 , 

78, 

121 , 

254-, 

9, 

48, 

26 / 

197, 

30, 

254, 

65, 

62,255, 

183, 

23, 

16,253, 

87, 

213, 

193,237, 

120,193, 

31, 

16, 

253, 

63, 

62, 

0, 

206, 

0, 

79,201, 

30, 

255 > 
2 / 

33,200 , 
0,201 

0 ,20 5, 

1S1 , 

3, 

1> 


Listato 2. Codice macchina delta routine. 


1 

REM 


******************************* 

* 


* 

* 

PROGRAMMO DI PROVA 

* 

* PER Lfi ROUTINE DI LETTURA 

* 

* 

DELLA TASTIERA 

* 

* 


* 

******************************* 

10 

DEF FN i (a , bJ eUSR 50000 
input "n. tasto",a 


20 


30 

INPUT "r>. semi riga", b 


40 

PAUSE 0 ' 


50 

PRINT FN ita, b) 


60 

GO TO 20 



Listato 3. Programma di prova. 


chiaro nella figura 1. 

Di ritorno otterremo nella variabile a il valore 1 se 
il tasto è premuto, o zero in caso contrario. Se, infine, 
avremo commesso qualche errore nel passare i para¬ 
metri (x deve essere compreso fra 1 e 5, y fra 1 e 8) 
otterremo di ritorno un valore 2, accompagnato da 
un breve segnale sonoro. 

Oltre a semplificare i conti, questo sistema ha il van¬ 
taggio di isolare ciascun tasto dagli altri; in altre 
parole, otterremo una risposta corretta riguardo ad 
un tasto, indipendentemente dal fatto checontempo- 
raneamente siano premuti altri tasti che fanno capo 
allo stesso port. 

Veniamo ora ad un esempio pratico. Supponiamo di 
voler sapere se è premuto il tasto corrispondente al 
cursore verso destra, cioè F“8”; scriveremo: 


DEF FN i (a, b) = USR v 
dove v è l’indirizzo di inizio della routine, in un punto 
qualsiasi del programma, e quindi: 

LET a = FN i (3, 5) 

IF a = 1 THEN ... 
o, più semplicemente: 

1F FN i (3, 5) THEN ... 

Nel caso invece i parametri vengano determinati dal 
programma, e sia quindi possibile un errore, è oppor¬ 
tuno inserire un controllo per il caso di FN i (x, y) = 2. 
Letture combinate di più tasti andranno fatte me¬ 
diante più chiamate della FN i con valori diversi, 
eventualmente correlate in una: 

IF ... AND ... THEN ... 

Nel listato 1 trovate l’Assembly della routine, mentre 
nel listato 2 c’è il codice macchina già assemblato, 
pronto da introdurre con uno dei numerosi program- 
mini (questo nome è anche troppo per loro) di carica¬ 
mento che sono comparsi in queste pagine. Tenete 
presente che anche se vedete dal listato 1 che l’indiriz¬ 
zo di inizio da me scelto è stato 50000, la routine è 
completamente rilocabile, cioè potete caricarla all’in¬ 
dirizzo che preferite, senza dover modificare niente. 
Ovviamente l’argomento della USR nella DEF FN 
dovrà essere il valore scelto da voi. 

Il listato 3 è invece un programma di prova, in cui 
voi date i due parametri e vi viene stampato in rispo¬ 
sta il valore del tasto corrispondente. Provate anche 
con valori errati, per rendervi conto del meccanismo 
di errore. Unica limitazione del programmino, data 
dalla peraltro indispensabile presenza di PAUSE 0, è 
l’insensibilità alla pressione dei soli SHIFT; per pro¬ 
varli, premeteli insieme a qualche altro tasto. 

Per quanto riguarda la meccanica interna della routi¬ 
ne rimando all’Assembly, qua e là commentato, fa¬ 
cendo solo notare come la lettura sia totalmente 
indipendente dallo stato degli altri bit e sia quindi 
indifferente alla versione di Spectrum usata. 


COMMODORE VIC 20 e C 64 


Magic Key 


di Alessandro Guida 

Abbiamo constatato che l’invito(tutt’ora valido)a 
scriverci dei suggerimenti, piccole routine e segreti 


scoperti dei due piccoli Commodore ha avuto note¬ 
vole successo. 

Mentre continuiamo a leggere attentamente le vostre 
lettere, siamo giunti ad una prima conclusione. Siete 
molto interessati a utility che rendano il più veloce 
possibile la stesura dei programmi. 

Il 64 ed il VIC sono già dotati di un editor molto 
efficiente che permette, tra l’altro, di abbreviare i 
comandi in sole due o tre lettere. Certo, sarebbe 
comodo poter premere, addirittura, un solo tasto ed 
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10 FRI NT "LI 64 MAGIO KEV" 

28 PORI“52557T052739 
30 RE ADR : X=X+A : F'OKE I.. A 
40 NEXTI 

50 IFXO24016THENPRI NT 11 0 ' E • 
60 


FRINÌ "SVS 52557 PER ATTIVARE” 


UN ERRORE NEI DATA !": END 


70 

DATA 120 

,173,20 

, 3,72 

, Ì73, 

21, 

Oi ci. 

.• 173 

, .Ut 

5, 205 

, 203 

,2,1 

69 


80 

DATA 118 

,141,20 

, 3, 17 

3,117 

, 20 

5,20 

8 .» 2.« 

169, 

. 205, 

141, 

21,3 

, 104 


90 ! 

DATA 141 

, 1Ì7,20 

5, 104 

,141, 

116 

, 205 

i“i o 

QO .• 

96, é 

), 0, 7 

2, 13 

8, 72 

, 152 


100 

DATA72, 

165,215 

,72, 1 

65,21 

2, 2 

40, 4 

, 104 

, 76, 

■ 221, 

205, 

104, 

201, 

Ì93 

110 

DATA144 

,82,201 

,219, 

1 < t-, r 

8,5 

6, 23 

3, 19 

3, 17 

"0, 18 

9, 22 

S , 20 

5, 16 

2, 0 

120 

DATA134 

,198,17 

0, 3.60 

, 158, 

132 

, 34, 

160, 

160, 

. 132, 

35, 1 

60,0 

, 10, 

240 

130 

DATAI6, 

202,16, 

12,230,34, 

208 

.i cl li 

30,3 

5,177,34 

, 16, 

246, 

48 


140 

DATA241 

,200,17 

7,34, 

48, 17 

, 8 , 

142, 

255, 


. 230, 

198, 

166, 

198, 

157 

150 

DATAI 19 

,2,174, 

255,205,40 

, 20 

8,234,23 

0,198,16 

6, 19 

8, 41 

, 127 

, 157 

Ì60 

DATAI 19 

,2,169, 

20, 14 

1,119 

, 2, 

230, 

198, 

104, 

. 168, 

104, 

170, 

104, 

76 

170 

DRTA49, 

234,198 

, 169, 

199,1 

34, 

128, 

129, 

161, 

. 144, 

133, 

137, 

141, 

200,202 

180 

DATA130 

,159,15 

1, 194 

, 201, 

196 

, 163 

, 183 

,197,131 






190 


DATA135,140,158,127,0,0,0,255,255,255 


Listato I. Versione per C 64. 


A 

ASC 

N 

NEXT 

Figura 1. 

B 

STEP 

0 

OPEN 

Parole chiave 

C 

CHR* 

P 

POKE 

assegnate 

D 

DIM 

Q 

PEEK 

ai singoli tasti. 

E 

END 

R 

RIGHT* 

F 

FOR 

•J 

STR$ 


G 

GET 

T 

TAB 


H 

STOP 

IJ 

USR 


I 

INPUT 

V 

VAL 


.J 

GOTO 

W 

DATA 


K 

GOSUB 

’j.;’ 

READ 


L 

LEFT* 

V 

RESTORE 


M 

MID$ 

2 

SVS 



avere subito la parola chiave. 

Un primo tentativo è già stato fatto ed è apparso 
alcuni numeri fa su Personal Software. Esso utilizza¬ 
va la possibilità di introdurre dei simboli grafici dopo 
una REM. Una volta eliminata la REM quei simboli 
venivano interpretati dal computer come parole chia¬ 
ve. Vi sono però tre inconvenienti. Il primo dovuto 
alla necessità di cancellare tutte le REM prima di dare 
il via al programma. Il secondo per il fatto che non c’è 
alcuna corrispondenza tra il tasto shiftato e la parola 
chiave relativa e il terzo, infine, è che sullo schermo 
rimangono dei simboli grafici al posto dei comandi 


BASIC, finché non viene chiesto un LIST. 

Con il piccolo programma presentato è invece possi¬ 
bile fare in modo che, alla pressione di un tasto 
alfabetico insieme allo SHIFT, sullo schermo appaia 
una parola chiave per intero. Inoltre, la stessa routine 
si preoccupa di controllare se tale parola trova tra 
virgolette, nel qual caso appare normalmente il carat¬ 
tere grafico. 

La routine è semplicissima da utilizzare. Basta digi¬ 
tarla (ce n’é una per il VIC e una per il 64) e dare il 
RUN. Se non ci sono errori nei DATA, apparirà la 
scritta: 

SYS nnnnn PER ATTIVARE 
Bisogna dare il SYS, riportato, per attivare la routi¬ 
ne. Un secondo SYS allo stesso indirizzo (o la pres¬ 
sione dei tasti STOP + RESTORE) la disabilita. 

La figura 1 riporta tutte le parole chiave assegnate ai 
vari tasti. Sono state scelte le parole di uso più comu¬ 
ne e, dove possibile, assegnate ai tasti corrispondenti 
all’iniziale della parola stessa. 

Dopo aver dato il RUN il programma in BASIC si 
può cancellare dalla memoria. 

Come funziona 

La routine è stata scritta in linguaggio macchinali! 
listato 3 è il disassemblato della versione per il 64) ed 
utilizza alcune particolarità dei 64/VIC 20. 

1) Si è sfruttata la possibilità di intervenire sulla 
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Magic Key 


10 F0KE55 ,??• PQKE56.. 29 
20 F'RINT "ZWIC MAGIC KEV" 

30 FORI-7501T07679 
40 READA : X=X+A" ' POKEI..R 
45 NEXT 

50 IFX022351 THEHF'RINT''C 'E' UH ERRORE NEI DATA I":END 
60 PRINT”SVS750Ì PER PITTI VARE" 

70 HATA120,173,20,3,72,173,21,3,72,173,116,29,208,2,169,118 
80 DATAI41,20,3, 173, 117,29,208,2,169,29,141,21,3,104,141,117 
90 DATA29,104,141,116,29,88,96,0,0,72,138,72,152,72,165,215 
100 DATA72,165,212,240,4,104,76,221,29,104,201,193,144,82,201,219 
110 DATA176,78,56,233,193,170,189,229,29,162,0,134,198,170,160,158 
120 DATAI32,34,160,192,132,35,160,0,10,240,16,202,16,12,230,34 
130 DATA208,2,230,35,177,34,16,246,48,241,200,177,34,48,17,8 
140 DATA142,255,29, 230,198,166,198,157,119,2,174,255,29,40,208,234 
150 DATA230,198,166,198,41,127,157,119,2,169,20,141,119,2,230,198 
160 DATA104,168,104,178,104,76,191,234,198,169,199,134,128,129,161,144 
170 DATA133,137,141,200,202,130,159,151,194,201,196,163,183,197,131,135 
180 DATA140,158,127 


Listato 2. Versione per V1C 20. 


routine di interrupt per aggiungervi la nostra, che 
esegue il controllo del tasto premuto prima che que¬ 
sto venga riversato sullo schermo. 

Per chi non lo sapesse, la routine di interrupt è quella 
che si occupa, anche, della gestione della tastiera 
(vedi Personal Software n. 15, 16). 

La parte di programma compresa tra SCD4D e 
SCD73 modifica il contenuto del vettore che punta 
all’inizio della routine di IRQ. 

2) La locazione $ D7 (215), interrogata in $ CD7B, 
contiene il codice ASCII dell’ultimo tasto premuto. 

3) La locazione $ D4 (212), che compare all’indirizzo 
SCD7E, è un flag posto a zero se l’editor non si trova 
in modo virgolette (quello attivato aprendo le virgo- 
lette e che causa l’apparizione di simboli grafici al 
posto delle funzioni come, ad esempio, il CLR che fa 
apparire un cuore in campo inverso). 

Se il flag è settato (editor in modo virgolette) la nostra 
routine viene terminata (SCD83) saltando alla routi¬ 
ne di IRQ originale. 

4) Viene utilizzata la tabella dell’interprete BASIC 
contenente tutte le parole chiave, locata in SA09E per 
il 64 e in SC09E per il VIC. 

Un altro piccolo segreto 

Molte volte i programmi contengono dei DATA 
che vengono letti e immessi direttamente in memoria 
con una POKE. Se, ad esempio, nel listato 1 (o 2) 


sostituite uno dei dati con un 256, avrete un ILLE- 
G AL QUANTITY ERROR IN 30 (o 40), poiché non 
è posibile utilizzare il POKE con numeri superiori a 
255. Il problema è che il computer non vi dice in che 
linea vi è il DATA errato. Per lo meno non ve lo dice 
apertamente. 

Infatti, le locazioni $3F (63) e $40 (64) contengono 
sempre il numero dell’ultima linea di DATA letta. 
E perciò sufficiente digitare in modo diretto: 

PRINT PEEK (63) + PEEK (64) ★ 256 
e si avrà il numero della linea difettosa. ■ 

In redazione continuiamo ad attendere suggerimenti da 
tutti gli utenti Commodore. 

Se avete scoperto qualche piccolo trucco, se avete sug¬ 
gerimenti da darci, o se avete idee da sviluppare e 
programmi completi, inviateli a: 

Alessandro Guida 

c/o Personal Software - Via Rosellini, 12 - 20124 Mila¬ 
no. 


Listato 3. Disassemblato della routine proposta. 


CD4D 

78 



SEI 


CD4E 

AD 

14 

03 

LDA 

$0314 

CBS 1 

48 



F'HA 


CD52 

AD 

15 

03 

LDA 

$0315 

CB55 

48 



F’HA 


CD56 

AD 

74 

CD 

LDA 

$CD74 

CD59 

D0 

02 


BNE 

$CD5D 
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Seguilo listalo 3. 




CD5B 

A 9 

76 


LDA 

#$76 

CD 51' 

8D 

ì 4 

03 

STA 

$0314 

CD 60 

AD 

75 

CD 

LDA 

$CD75 

CD 63 

DO 

02 


BNE 

$CD67 

CD 65 

A9 

CD 


LDA 

#$CD 

CDS7 

8D 

15 

03 

S T A 

$0315 

CDSA 

68 



F'LA 


CD 6 E 

8D 

75 

CD 

STA 

$CD75 

CD6E 

68 



PLA 


CD6F 

8D 

74 

CD 

STA 

$CD74 

CD 72 

58 



CLI 


CD 73 

60 



RTS 


CD74 

00 



BRK 


CD75 

00 



BRK 


CD 76 

48 



PHA 


CD 7 7 

SA 



TXA 


CD 78 

48 



PHA 


CD 7 9 

98 



TVA 


CD7fi 

48 



PHA 


CD7B 

A 5 

D7 


LDA 

$D7 

CD7D 

48 



PHA 


CD 7 E 

A 5 

D4 


LDA 

$D4 

CD80 

F0 

04 


BEQ 

$CD86 

CD 82 

68 



PLA 


CD83 

4C 

DB 

CD 

JMP 

$CDDD 

CD86 

68 



PLA 


CD 8 7 

C9 

CI 


CMP 

#$C1 

CD 8 9 

90 

52 


BCC 

$CDDD 

CD8E 

C9 

DB 


CMP 

#$DB 

CD8D 

B0 

4 E 


BCS 

$CDDD 

CD8F 

38 



SEC 


CD 90 

E9 

CI 


SBC 

#$C1 

CD 9 2 

HA 



TAX 


CD 9 3 

BD 

E5 

CD 

LDA 

$CDE5,X 

CD 96 

A 2 

00 


lux 

#$00 

CD 9 8 

86 

C6 


STX 

$C6 

CD 9 A 

RR 



TAX 


CD9B 

R0 

9 E 


LDV 

#$9E 

CD9D 

84 

22 


STV 

$22 

CD9F 

A0 

A0 


LDV 

#$AO 

CD Ai 

84 

23 


STV 

$23 

CDA3 

A0 

00 


LDV 

#$@0 

CDA5 

0R 



ASL 


CDA6 

F0 

10 


BEQ 

$CBB8 

CDA8 

CA 



DEX 


CDA9 

10 

0C 


BF'L 

$CDB7 

CD AB 

E6 

22 


INC 

$22 

CD AD 

D0 

02 


BNE 

$CDB1 

CDAF 

E6 

23 


INC 

$23 

cubi 

B1 

22 


LDA 

<$22>,V 


Seguito listato 3. 




CD E 3 

10 

F6 


BPL 

$CDAB 

CDB5 

30 

FI 


BMI 

$CDA8 

CDB7 

C8 



INV 


CDB8 

B1 

22 


LDA 

c; $22 ':> .. v 

CUBA 

30 

il 


BMI 

$CDCD 

CBBC 

08 



PHP 


CDBD 

8E 

FF 

CD 

STX 

$CDFF 

CDC0 

E6 

C6 


INC 

$C6 

CDC2 

A6 

C6 


LUX 

$C6 

CDC4 

9D 

77 

02 

STA 

$0277,X 

CDC7 

RE 

FF 

CD 

LDX 

$CDFF 

CDCA 

28 



PLF' 


cuce 

D0 

EA 


BNE 

$CDB7 

CDCD 

E 6 

C6 


INC 

$C6 

CDCF 

A 6 

C6 


LDX 

$C6 

CD Di 

29 

7F 


AND 

#$7F 

CDD3 

9 D 

77 

02 

STA 

$0277>X 

CDD6 

A 9 

14 


LDA 

#$14 

CDD8 

8D 

77 

02 

STA 

$0277 

CDDB 

E 6 

C6 


INC 

$C6 

CDDD 

68 



PLA 


CD DE 

A8 



TAV 


CDDF 

68 



PLA 


CDE0 

A A 



TAX 


CD Et 

68 



PLA 


CDE2 

4C 

31 

EA 

JMP 

$EA31 

CDE5 

C6 

A 9 


DEC 

$A9 

CDE7 

C7 



??? 


CDE8 

86 

80 


STX 

$80 

CHEA 

81 

Al 


STA 

<:$Ai.. x> 

CDEC 

9@ 

85 


BCC 

$CD73 

CD E E 

89 



.?.?? 


CHEF 

8D 

C8 

CA 

STA 

$CAC8 

CDF2 

82 



.-« 

; 


CDF3 

9F 





CDF4 

97 



??? 


CDF5 

C2 



??? 


CDF6 

C9 

C4 


CMP 

#$C4 

CDF8 

A3 



??? 


CDF9 

B7 



??? 


CD FA 

C5 

83 


CMP 

$83 

CDFC 

87 



??? 


CDFD 

8C 

9E 

7F 

STV 

$7F9E 

CE00 

00 



BRK 


CEO 1 

00 



BRK 


CE02 

00 



BRK 


CEO 3 

FF 



??? 


CE04 

FF 



.??? 


CE05 

FF 



??? 
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Apple 

Scambio software Apple II e cerco fotocopie 
del programma Space Shuttle, che posso pa¬ 
gare con un programma. 

Fabrizio Vettore - Via S. Croce 327 - 30125 
Venezia - Tel. 041/700866. 

Cambio programmi di qualsiasi tipo per simu¬ 
lazioni e games molto complessi (tipo time zo¬ 
ne, marauder, southern command...) per Apple 
II. Dispongo dBase 2, thè last one, Tasc, Co- 
boi... 

Stefano Malagodi - Via Comunale 14 - 44034 
Copparo (FE) - Tel. 0532/860196. 

Cambio programmi di ogni genere per Apple. 

Possiedo 130 gestionali e 100 giochi. Spedite¬ 
mi vostra lista. 

Tiziano Maffei - Il Podere Loc. S. Giovanni - 
57037 Portoferraio (LI) - Tel. 0565/916566. 

Cambio/vendo software per Apple II, scientifi¬ 
ci, gestionali, utilità, giochi, vasta scelta. Inviare 
la lista a cui risponderò con la mia. 

Fabrizio Vettore - Via S. Croce 327 - 30125 
Venezia - Tel. 041/700866. 

Software per Apple cambio e vendo contabilità 
generale clienti, fornitori, fatture, stipendi, risto¬ 
ranti, alberghi, condomini, numerose utility, in¬ 
gegneria e gestione testi, visicorp software. 
Marco Nundini - Via E. Oddone 17 Rivalla - 
42100 Reggio Emilia - Tel. 0522/569219. 

Apple tastlerino programmabile e silentype 
con interfaccia vendesl. Telefonare ore 13-14. 
Fabio Dimant - Via F. Raibolini 33/7 - 60069 
Zola Predosa (BO) - Tel. 051/273277. 

Cerco per Apple II: Mumathimusimp, logica 
simbolica, fisica, ottica, micro expert, prolog, 
diagnosis, mathemagic/graphmagic combo, 
programmi e linguaggi per l’Intelligenza artifi¬ 
ciale. 

Antonio Scala - Via G. Imbroda 39 - 80035 Nola 
(NA) - Tel. 081/8234710. 

Vendo/cambio programmi e schede per Apple 
Il Ile, vasta disponibilità a prezzi stracciati. Scri¬ 
vere per informazioni. 

Carlo Casalicchio - Via M. Velino (Residence 
Ameno) - 60100 Ancona. 

Scambio con utenti Apple programmi di ogni 
tipo. In particolare giochi, utility, didattica. Com¬ 
pro anche programmi per copiare i floppy. Te¬ 
lefonatemi o venitemi a trovare. 

Massimo Gilardetti - Via Borsi 62 - 28100 Nova¬ 
ra - Tel. 0321/474639. 

Cambio programmi per Apple II. Sono in pos¬ 
sesso di : Dechatlon, guerre spaziali (e giochi 
inclusi), guerra mondiale att. Tutti su disco. 
Chiamare ore pasti. ' 

Simone Serafini - P-.zza Ara Coeli 6 - 00186 
Roma - Tel. 6790146. 

Cambio/vendo programmi applicativi, utility e 
giochi per Apple II. Inviare L 500 o spedire la 
propria lista. Risponderò con l’elenco dei miei 
programmi. 

Paolo Vercellesi - Via M. Pichi 11 -20143 Mila¬ 
no - Tel. 02/8394831. 


Scambio programmi per Apple II. Mandatemi 
vostra lista ed io vi manderò la mia, contenente 
250 programmi. 

Tiziano Maffei - Il Podere Loc. S. Giovanni - 
57037 Portoferraio (LI) - Tel. 0565/916566. 

Vendo moltissimi programmi per Apple di tutti i 
tipi. Per avere una lista dei programmi telefona¬ 
re al 3275666 di Roma, al pomeriggio verso le 
ore 6.30, e chiedere di Karim. 


Esperto programmatore CNR cambia pro¬ 
grammi per Apple solo su dischetto. 

Alberto Pollastri - Via Di Pratale 28B - 56100 
Pisa - Tel. 050/20584. 

Cambio programmi per Apple, dispongo di una 
vasta biblioteca di software. Disposto a scam¬ 
biarli anche con hardware. Rispondo a chiun¬ 
que mi contatta anche per scambio esperienze 
su Apple. 

Franco Vittor - Via Grabizio 35 - 34170 Gorizia - 
Tel. 0481/81254 ore serali. 


Vendo per Apple II Ile programmi di ogni gene¬ 
re + manuali a prezzi bassissimi; molte novità. 
Telefonare ad Andrea 06/3201782. 

Vendo listati programmi Apple e programmi 

per Vie 20 a basso prezzo. 

Giovanni Bellamacina - Via Mazzini 31 - 20058 
Villasanta (MI) - Tel. 039/302576. 

Cambio programmi per Apple Ile e per Com¬ 
modore 64. Inviate la vostra lista, io vi invierò la 
mia. 

Giovanni Cutolo - Via Tasso 97 - 80126 Napoli. 

Scambio per Apple II 250 programmi e vendo 1 
drive appena provato con garanzia. 

Tiziano Maffei - Il Podere Loc. S.Giovanni - 
57037 Portoferraio (LI) - Tel. 0565/916566. 

Vendo per Apple II: "Language card” originale 
(16K espansione) a L. 155.000, prezzo di listino 
L 352.000 + IVA. Inoltre compro programma 
per “Epron Programmer” di Bit Febb. 83. 
Tiziano Settimi - Via XXIV Maggio 30 - 20010 
Canecirate (MI) - Tel. 0331 /400303. 

Apple Ile ancora imballato, fattura Febbraio 84, 
scheda 80 colonne, espansione memoria 
128K, 2 Disk Driver, Monitor Apple, stampante 
ad aghi, interfaccia parallela, tutto 40% di scon¬ 
to. Telefonare ore 20-23. 

Gabriella Bellini - Via C. De Cesare - 80100 
Napoli - Tel. 081/661781. 

Compro a prezzo d’occasione Drive 5” per Ap¬ 
ple compatibili. Telefonare ore serali allo 
02/5270019 e chiedere di Fabrizio. 

Cerco possessori Apple per scambio di espe¬ 
rienze e programmi. 

Melchiorre Schifano - Via Padova 10 - 10152 
Torino Tel. 011 /270324. 

Vendo in blocco programmi del totocalcio su 
Apple II : corr. err., sistema chiave 6 Alfa super, 
sistema a rotazione, sistemi ridotti, analisi di 
campionato -F altri tipi di sistema a L. 100.000 
(compresa spedizione + disco). 

Telefonare allo 085/207466. 

Apple II Ile a prezzi competitivi, programmi di 
ogni genere : utility, giochi, gestionali, grafica, 
ecc. Ulteriori sconti saranno praticati in ragione 
del numero di programmi acquistati. 

Luigi Palumbo - Via Adelaide Ristori 8 - 00197 
Roma - Tel. 06/802783. 


Vendo o scambio compatibili Apple molti pro¬ 
grammi applicativi e giochi. Ad interessati invio 
elenco. Unire alla richiesta L. 1.000 in franco¬ 
bolli per rimborso spese. 

Lanza Mario - Via Teano 21. - 20161 Milano - 
Tel. 02/6453879. 

Vendo per Apple II “Supertoto 1.0””, super- 
programma inedito totocalcio, 3 diverse opzio¬ 
ni di selezioni incrociate; con output n° colonne 
utili, sviluppo su Monitor o stampante, a L. 
70.000 con man. 

Roberto Rossi - Via Lario 26 - 20159 Milano - 
Tel. 02/6070236. 


Commodore 


Cerco assolutamente possessore dei Tool’s 
kit. Il mio segnala errore in 500. Organizzazione 
nuovo club “Commodore”; ho bisogno di mol¬ 
tissimo materiale, rimborserò qualsiasi spesa 
postale. Grazie a quanti risponderanno. 
Fabrizio Aureli - Via Delle Grazie 96 - 60100 
Ancona - Tel. 071/84580. 

Vendo/compro/scambio programmi per Com¬ 
modore 64, invio lista a chi mi invia la propria, 
oppure L. 700 in francobolli. 

Lauro Michelotti - Via Boboli 1/A - 51017 Pe- 
scia (PT) - Tel. 0572/477727. 

Vendo 30 fantastici programmi per VIC 20, co¬ 
me totocalcio, life, bioritmi, invaders, drawer, 
ecc. Su cassetta in blocco L. 29.000 tutti. 
Mazza Armando - Via Settembrini 96 - 70053 
Canosa (BA) - Tel. 0883/64050. 

Eccezionale si è costituitoa Torino un Commo¬ 
dore VIC 20 club a livello nazionale. Chi ha 
intenzione di aderirvi invii L. 2.000 precisando 
nome, cognome e indirizzo. Gli saranno man¬ 
date informazioni. 

Maurizio Moretti - C.so Monte Cucco 33 - 
10139 Torino - Tel. 011/3359684. 

Cambio/compro/vendo programmi per VIC 
20. Cerco Super Expander a buon prezzo. 
Leonardo Pecchi - Via SS per Correggio 22 - 
41012 Carpi (MO) - Tel. 059/664219. 

Vendo registratore per VIC e 64; Superexpan- 
der + 3K RAM, cartridge Jelly Monsters, per 
VIC 20, cartridge Avenger per 64, tutto come 
nuovo. 

Paolo Bondino - Via Montanara 2 - 05100 Terni 
Tel. 0744/82170. 

Scambio circa 500 programmi per Commodo¬ 
re 64. Richiedere lista a: 

Paolo Raimondo - C.so Vittorio Emanuele 71 - 
10128 Torino - Tel. 011/545625. 

Cerco joystick per C64 

Andrea Giannotti - Via Milano 16 - 55042 Forte 
dei Marmi (LU) - Tel. 0584/82302. 

Per CBM 64 compro programmi di qualunque 
tipo. Cerco procedure di back up cassetta- 
cassetta, anche interfaccia. Inviare liste prezzi 
a: 

Leonardo Lombardi - Largo A. Banfi 4 - 50018 
Scandicci (FI) - Tel. 055/256640. 

Cambio e vendo programmi per VIC 20. Massi¬ 
ma serietà e validissimi programmi. Contattate¬ 
mi. 

Marco Ceruti - Via Frassinago 59 - 40132 Bolo¬ 
gna - Tel. 051/585384. 
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Sono interessato a contattare club Commodo¬ 
re 64 per adesione oppure scambio vendita 
acquisto software. 

Marco Bombonato - Via Nino Bixio 27 - 20129 
Milano. 

Per C64 cavo di interfaccia parallela Centro¬ 
nics da inserire nella User-port 4- routine di 
abilitazione in L.M.. Si usa da BASIC con un 
print e manda dati a qualunque unità periferica 
Centronics compatibile. L. 59.000 + ss. con¬ 
trassegno. 

Lorenzo Fontani - Via Cavour 33 - 53100 Siena 
- Tel. 0577/284229. 

Vendo/cambio per VIC 20 centinaia di pro¬ 
grammi su cassetta a prezzi strabilianti anche 
in LM. 

Antonio Luini - Via Parco dei Principi 50 - 
70010 Casamassima (BA). _ 

Vendo per C64 software originale ricreativo e 
didattico. I programmi vengono forniti su cas¬ 
setta. Invio catalogo gratuitamente. Produco 
software gestionale su misura anche per Apple 
Ile. 

Sergio Fumich - Via Togliatti 1/A - 20070 
Brembio (MI). 

Cerco programmi pronti (giochi) su cartridge 
per CBM 64 a buon prezzo. Annuncio sempre 
valido. Telefonate, cerco inoltre utenti zona Mi¬ 
lano per scambio idee e software. Telefonare 
ore pasti. 

Fabrizio Boti - Via Papa Giovanni XXIII 23 - 

20093 Cologno Monzese (MI) - Tel 

02/2535812. _ _ 

Vendo, per passaggio a sistema superiore, VIC 
20 ancora in garanzia insieme a, pensate, ben 
230 programmi su cassette (giochi, utility, ma¬ 
terni.) e 1 cartuccia gioco. Tutto a L. 200.000. 
Domenico Basile - Via A. Volta 13 - 74012 Cri- 
spiano (TA) - Tel. 099/616556. _ 

Vendo e/o scambio giochi per VIC 20, posseg¬ 
go più di 350 programmi. Il tutto a prezzi bassis¬ 
simi, vendesi in blocco 250 giochi per VIC 20 
(tra cui Bonzo, Sub Chase, Arcadia, Frogger). Il 
tutto a L. 50.000 

Alessandro Natali - Viale Abruzzi 28 - 20131 
Milano - Tel. 02/2713636. _ 

Cambio/vendo moltissimo software per CBM 
64. Linguaggi, compilatori, gestionali, Utilities, 
videogames e molti altri. Telefonare ore 14-15. 
Paolo Vergoni - Via Appia 10 - 06100 Perugia - 
Tel. 075/66918. __ 

Cerco qualsiasi tipo di programma per CBM 64 
a prezzo non eccessivo. Bastano anche le foto¬ 
copie dei listati. 

Nicola Pisilli - Via Molinetto di Lorenteggio 15- 

20094 Corsico (MI) - Tel. 4408947, _ 

Vendo, causa passaggio a sistema superiore, 
C64 + unità nastro + 2 joystick 1311 + he- 
smon64 con trad. it. + 2 giochi su cassetta + 
decine di programmi a L. 850.000 trattabilissi¬ 
me. 

Renato Fornasero - Viale Trieste 281 - 93100 
Caltanissetta. 


CBM 64 scambio programmi e vendo. Cerco 
programmi per gestione stazioni radioamato¬ 
riali. 

Vincenzo Petrizzo - Via Nazionale 157 - 84030 
Padula Scalo (SA) - Tel. 0975/74022. 

Vendo per VIC 20 bellissimi videogiochi ad un 
prezzo interessante. Risponderò a tutti. Meglio 
se telefonate. 

Luca Cioffi - Via Adua 7 - 44100 Ferrara - Tel. 
0532/48982. 

Vendo programmi per VIC 20 a prezzi vera¬ 
mente incredibili. Scrìvere per maggiori infor¬ 
mazioni. 

Massimo Tabasso - Piazza Molineris 1 - 12038 
Savigliano (CN). 

Vendo/scambio splendidi videogames e pro¬ 
grammi utility su nastro o su disco per C64. 
Scrivetemi: oltre al catalogo dettagliato riceve¬ 
rete un gioco in omaggio e tantissimi altri regali. 
Guido Pellicani - Via Devìto Francesco 27 - 
70124 Bari - Tel. 080/221015. 

Vendo per CBM 64 giochi interessanti. Vendo 
inoltre Utilities come gestione c/c, word italia¬ 
no e il Simon's BASIC con manuale. Scrivere o 
telefonare ore pasti a: 

Francesco Punzo - Via Tufarelli 18 - 80046 San 
Giorgio a Cremano (NA) - Tel. 081/7716827. 

Per C64 vendo/scambio software a basso co¬ 
sto; in particolare: Simon's BASIC- dimostra¬ 
zioni e manuale istruzioni; NEWBASIC; Turbo 
(riduce la lunghezza di un programma su na¬ 
stro di 1/10 di giri); invio catalogo anche di 
giochi; possibilmente spedire il francobollo per 
mia risposta. 

Alfonso Dinoia - Via Arrigo Davila 61 - 00179 
Roma - Tel. 06/7884472. 

Compro/cambio/vendo software per CBM 64. 
Dispongo di una notevole quantità di giochi su 
cassetta e disco in LM. Per ricevere la lista dei 
giochi allegare L. 800 o telefonare. 

Giammaria Lari - Via Sinigaglia 3 - 26013 Cre¬ 
ma - Tel. 0373/81117. 


Sinclair 

Vendo per ZX Spectrum 16K cassetta conte¬ 
nente moltissimi programmi, giochi di ogni ge¬ 
nere, analitica. L, 12.000 + spese postali. Mas¬ 
sima serietà. 

Francesco Landogna - Via Cavour 110-96017 
Noto (SR). 

Vendo ZX Spectrum 48K + registratore Philips 
Data Recorder + manuale in Italiano + 250 
programmi originali su cassetta. Il tutto a L. 
600.000 tratt. 

Francesco Ippolito - Via Cales 4 - 00050 Cere¬ 
nova (Roma) - Tel. 06/9931157. 

Cambio programmi per ZX Spectrum. Oltre 350 
titoli a disposizione. Inviare propria lista e L. 500 
per ricevere dettagliate istruzioni. Scrivere se 
avete almeno 80 titoli. 

Luigi Ballestrin - Via Martiri della Libertà 
367/11 - 18038 Sanremo (IM). 

Vendo per ZX Spectrum circa 300 programmi 

in blocco a L. 120.000. Tutti i migliori e le ultime 
novità. Spedizione contrassegno se fuori zona 
dietro anticipo di L. 10.000. 

Marino Marinanza - Via Rastrelli 102 - 00128 
Roma - Tel, 06/5203292. 


Vendo programmi per ZX Spectrum a L. 2.000 
per 16K e L. 4.000 per 48K. Possibilità di scam¬ 
bio. Spedire L. 400 in francobolli per lista soft¬ 
ware. Telefonare fuori orario pasti. 

Luca Bresin - Tel. 041/711141 - Venezia. 

ZX Spectrum. Il Sinclair Club di Mantova dispo¬ 
ne di oltre 700 programmi in continuo aggior¬ 
namento. Siamo a vostra disposizione per 
qualsiasi chiarimento ed informazioni. 

Luca Giambellini - Strada Cisa 95 - 46047 
Bamcole (Mantova) - Tel. 398220. 

Per Spectrum 48K cedo (causa incompetenza) 
cassette di Forth e Pascal con manuale in Ita¬ 
liano a L. 10.000 ciascuna + spese postali. 
Ennio Metta - Via A. Gioia 122 - 70054 Giovi- 
nazzo (BA). 

Vendo/cambio moltissimi programmi per ZX 
Spectrum 16 e 48K a prezzi veramente bassi. 
Scrivere o telefonare per elenco completo a: 
Piero Cingolani - Via Dei Pini 37 - 62017 Porto 
Recanati (MC) - Tel. 071/9798853. 

Cambio programmi di ogni tipo perloZX Spec¬ 
trum. Inviate la vostra lista, risponderò con la 
mia: risposta assicurata. Per maggiori informa¬ 
zioni scrivere o telefonare a: 

Igor Bonat - Via Ressmann 6 - 34141 Trieste - 
Tel. 040/768718. 

Cambio 200 programmi per ZX Spectrum. Tutti 
originali inglesi, LM e con istruzioni. Ultime no¬ 
vità. Rispondo a tutti. Massima serietà. 
Vincenzo Tornassi - Via G. Leopardi 34A - 
03043 Cassino (FR) - Tel. 0776/24109. 

Cambio per ZX Spectrum circa 40 programmi 

su cassetta (giochi, utilità, gestionali). Inviatemi 
la vostra lista, io farò altrettanto. Contattatemi 
anche telefonicamente (ore pasti). 

Fabio D’Urso - P.za S. Giuseppe 10 - 20162 
Milano - Tel. 02/6433677. 

Vendo e cambio programmi per ZX Spectrum a 
prezzi incredibili. Tantissime novità ogni setti¬ 
mana. Massima serietà e convenienza. Telefo¬ 
nare dalle 14 alle 19.30 o scrivere a: 
Alessandro Carbonara - Via Faenza 159 - 
70019 Triggiano (BA) - Tel. 080/681928. 

Compro Sinclair Z 80 ancora funzionanti, op¬ 
pure quelli guasti. Sono disposto a pagaretutte 
le spese postali. Per un contatto telefonare o 
scrivere a: 

Andrea Meroi - Via Mignone 11 -52100 Arezzo 
- Tel. 0575/29091. 

Per ZX 81 scambio programmi utili e progetti 
hardware. Inviare L. 400 in francobolli specifi¬ 
cando cosa interessa. Possiedo materiale an¬ 
che per i più comuni computer. 

Fabrizio Martano - Via Don L. Sturzo 7 - 58100 
Grosseto - Tel. 0564/492806. 

Vendo per Spectrum Eccezionali giochi in lin¬ 
guaggio macchina. Cassetta 10 giochi 16K a L. 
10.000. Cassetta 10 giochi 48K a L. 15.000. Pa¬ 
gamento in contrassegno L. 2.000 per spese 
postali. 

Fabio D'Amico - Via 5 Giornate 14 - 20025 
Legnano (MI) - Tel. 0331/595581. 

Vendo per Spectrum 16/48K programma su 
cassetta che risolve qualunque triangolo a L. 
15,000, comprese le spese di spedizione Invia¬ 
re vaglia postale o assegno bancario. 
Anacleto Furlan - Viale Papa Giovanni 35/10 - 
31015 Conegliano (TV). 
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Acquisto espansione di memoria per ZX 81, 
inoltre compro giochi solo se veramente belli. 
Solo Milano. Telefonare ore pasti. 

Luca Mantegazza - Via Mosè Bianchi 26 - 
20149 Milano - Tel. 02/431605. 

Ora c'è il "Sinclub Napoli Ovest”. Centinaia di 
programmi per Spectrum 16/48K. Scambio 
gratuito e iscrizione gratuita. Per informazioni e 
lista programmi telefonare nel pomeriggio. 
Marco Antignano - Via Cupa S. Cesarea 33 - 
80145 Napoli - Tel. 081/7553580. 

Cambio programmi ZX Spectrum 16/48K. In¬ 
viate la vostra lista per ricevere, oltre alla mia, 
alcuni programmi che non possedete, in attesa 
di ricevere i vostri. Rispondo a tutti immediata¬ 
mente. 

Marco Ghirardelli - Via Caduti per la Libertà 30 
- 48015 Cervia (RA) - Tel. 0544/971697. 

Cerco software per Spectrum 48K riprodotto su 
cassetta vergine o su cassetta originale. 
Cristiano Magistrali - Via Cristalli 5 - 29100 
Piacenza - Tel. 0523/384807. 

Spectrum, vendo programma totocalcio toto 
PM V2, sistemi integrali, statistici, condizionati, 
base ibrida, sezioni, schede multiple. Per detta¬ 
gli e informazioni spedire L. 400 in francobolli, 
Mario Pacchiarotti - Via Tuscolana 884 - 00174 
Roma (RM) - Tel. 06/7612788. 

Scambio/vendo programmi ogni genere per 
Spectrum 16/48K. Risposta rapida e certa. In¬ 
viatemi la vostra lista ed entro pochi giorni rice¬ 
verete la mia. 

Enzo Bon - Via Domenico Loschi 11 /A -31100 
Treviso (TV) - Tel. 0422/66298. 

Cerco, zona Cecina/Rosignano (LI), possesso¬ 
ri ZX Spectrum per scambio idee ed, eventual¬ 
mente, fondazione club. 

Alessandro Paroli - Via 2 Giugno n. 2 - 57020 
La California (LI) Tel. 0586/677207. 

Cerco Spectrum 48K (tratto anche per il 16K ), 
in cambio offro televisore a colori Brionvega 24 
pollici (ha circa 10 anni ed è leggermente stara¬ 
to) funzionante. Tratto con Milano e provincia. 
Fabio Confalonieri - Via Sicilia 13 - 20038 Se- 
regno (MI) - Tel. 0362/220820. 

Compro, vendo e scambio software per ZX 
Spectrum. Ultimi arrivi dall'Inghilterra. Prezzi 
ottimi e forti sconti per grossi quantitativi. 
Disponibili oltre 200 programmi. 

Mauro Costa - Via Monte Suello2/l2A-16129 
Genova - Tel. 010/314704. 

Vendo a prezzi ridicoli programmi per ZX 
Spectrum. I programmi (16 e 48K) sono regi¬ 
strati direttamente da computer. E veramente 
un'occasione unica. 

Alberto Pilesi - Via D' Ancona 32/B - 60027 
Osimo (AN). 

Vendo Sinclair ZX81 imballo originale usato 
pochissimo. 16K Ram + cavi, manuali vari e 
cassette programmi. L. 250.000 tratt. 

Carlo Marazzini - C.so Lodi 50-20139 Milano - 
Tel. 02/5691858. 


Il “Sinclair Club Mantova" annuncia la sua co¬ 
stituzione mettendosi a disposizione di chi vo¬ 
lesse cambiare o vendere Software per Spec¬ 
trum 16 o 48K. Vi aspettiamo C.M. 

Luca Gandellini - Strada Cisa 95 - 46047 Man¬ 
tova - Tel. 0376/398220. 


Programmi a prezzi eccezionali per Spectrum, 
oltre 150 titoli, tutti originali. Una cassetta con 
20 titoli a vostra scelta L. 10.000. 

Richiedere lista gratuita. Massima serietà. 
Massimo Carosi - Via del forte Tiburtino Pai.18 
sc.C - 00100 Roma. 

Vendo a prezzi stracciati più di 200 programmi 
per Spectrum, tra cui le ultime novità (Wahalla, 
Atic Atac Lunar Jetman...). 

Marco Bartoli - Via Pinturicchio 10 - 05100 
Terni - Tel. 0744/420282. 

Vendo/scambio software per ZX Spectrum 
16/48K come Manic-Miner, Psst, Zzum, e vari 
programmi di utilità. Inviare listino. 

Marco Gianferrara c/o Bottarelli - Via G. 
Agnelli 6 - 56100 Pisa. 

Cerco possessori ZX Spectrum per scambio 
programmi. Possiedo circa 150 programmi per 
Spectrum 16/48 «byte. 

Stefano Lazzarino - Via G. Arganini 22 - 20162 
Milano - Tel. 02/6437645. 

Acquisto libri per ZX Spectrum (in italiano). 
Cerco ZX Printer (o simile) a prezzo modico. 
Scambio vendo acquisto programmi (Utility- 
Games) per ZX Spectrum 
Marco Arzani - Via Giovanni XXIII - 29017 Fio- 
renzuola D' Arda (PC) - Tel. 0523/9824401. 

Causa passaggio a sistema superiore vendo 
Spectrum 16K ancora in garanzia 2 mesi di vita 
con 2 cassette gioco, programmi vari, manuale 
in italiano e libro programmi a L. 300.000. 
Stefano Rigoldi - Via Visconti 30 - 20093 Colo- 
gno Monzese (MI) - Tel. 02/2547348. 

Cerco programma di qualsiasi genere per 
computer Sinclair ZX81 e Spectrum. 

Per maggiori informazioni scrivere a: 

Massimo Tabasso - P.zza Molineris 1 - 12038 
Savigliano (CN). 


Scambio programmi per ZX Spectrum 16K. 
Antonio Santone - Via Fonte Regina 28 - 64100 
Teramo - Tel. 0861 /50464. 

Vendo Sinclair ZX Spectrum 48K RAM con co¬ 
perchio esterno di uno ZX nuovo. Lo Spectrum, 
è un issue two ed è in vendita dotato di 20 
programmi, alcuni originali inglesi ed altri con 
grafica superiore. Cedo tutto a L. 500.000 (prez¬ 
zo d’aquisto L. 950.000). Scambio inoltre Soft¬ 
ware per Spectrum. 

Luca Raggi - Via Caccialupo 4 - 29100 Piacen¬ 
za - Tel. 0523/21163. 

Spectrum 48K ti sfida a Push Over, gioco di 
strategia su scacchiera. 

Spectrum può anche solo arbitrare. Program¬ 
ma su cassetta a L. 20.000 compresa spedizio¬ 
ne. Inviare assegno o vaglia postale. 

Anacleto Furlan - V.le Papa Giovanni 35/10 - 
31015 Conegliano (TV). 

Spectrum- cambio/vendo programmi gioco 
e/o utilità rapida. Risposta elenco gratuito. 
Scrivere a: 

Antonio Sfriso - Via O. Salomone 7 - 30173 
Mestre (VE) - Tel. 041 /972887. 


Vendo per ZX Spectrum e ZX81 sintesi vocale 
(con manuale) a L. 100.000, vendo, inoltre, ZX 
Printer comprata 2 mesi fà a L. 120.000. 

Paolo Agnelli - Via Papa Giovanni XXIII 43 - 
20091 Bresso (MI) - Tel. 02/6102190. 

Vendo programmi per ZX Spectrum Traxx, Lu¬ 
nar Jetman, Castle of thè Doom, Road racer, 
MR Wimpy, Splat, Game Designer e molti altri. 
Catalogo a richiesta L. 1000. 

Stefano Nobili - Via Tuscolana 224 - 00181 
Roma. 

Cerco possessori ZX Spectrum residenti a 
Monza per scambio Programmi. 

Stefano Raffaele - Via Crescitelli 6 - 20052 
Monza (MI) - 039/366372. 

Cambio o eventulmente vendo software per ZX 
Spectrum tra i quali: tutti i giochi ultimate- 
software, penna ottica, W3D, Manie miner e 
altri. 

Vincenzo Arnone - Via R. Grieco 37 - 71100 
Foggia._ 

Cerco stampante (ZX Printer o altra) per ZX 

Spectrum. Cedo in cambio oltre 100 programmi 
per ZX Spectrum 16/48K. Richiedetemi la lista 
completa. 

Renato Cozzolino - Via P. Federico 22 - 80045 
Pompei (NA). 

Cambio/vendo numerosi programmi su cas¬ 
setta per ZX Spectrum. Dispongo di oltre 140 
novità a prezzi davvero incredibili. Gradisco 
anche scambio di idee e di listati. 

Pasquale Di Tommaso - Via F. Rossi 10 - 70053 
Canosa di Puglia. 

Vendo 25 programmi per ZX Spectrum su cas¬ 
setta (tutti inediti) a sole L. 5000 non perdete 
questa occasione. Spedizione contrassegno. 
Sandro Romano - Via Adelasia 11 - 07046 Por¬ 
to Torres (SS) - 079/514501. 

Sono un ragazzo di 10 anni possessore di 
uno Spectrum 16K a cui servono tanti pro¬ 
grammi giochi per divertirsi e imparare. Chi ne 
avesse in esubero scrivere o telefonare a: 
Andrea Bosotti - Via Risorgimento 47 - 20098 
S. Giuliano Mil. (MI) - Tel. 02/9843569. 

Causa passaggio a sistema superiore vendo 
ZX81 Sinclair con garanzia non datata manuale 
istruzioni in italiano libro "66 programmi per 
ZX81” + programmi vari tutto a L. 100.000 o 
comunque al miglior offerente. 

Diego Massioli - Via Varese 3 - 20030 Cassina 
Savina (MI) - Tel. 0362/509811. 

Cambio o vendo programmi, giochi o utilità per 
Sinclair 16/48K (preferibilmente provincia di 
VE). 

Luca Prian - Via Cannaregio 1091/1 - 30121 
Venezia - Tel. 713438. 


Vendo 100 programmi in blocco per lo Spec¬ 
trum a prezzi favolosi (L. 1000 cad ). 

Michele Romano - Via A. Vivaldi 20 - 04100 
Latina - Tel. 241315. 

Offro causa doppione pratica consolle metallo 
ancora imballata, per più comodo uso e lettura 
funzioni Spectrum a L. 15.000 
Riccardo Batti - V.le Umbria 36 - 20135 Milano 
- Tel. 02/5469734. 

Scambio oltre 400 programmi per Spectrum. 
Monica Mauro - C.so Montecucco 64 - 10100 
Torino - Tel. 613714. 
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Vendo scambio acquisto programmi per ZX 
Spectrum 16/48K. Garantisco massima serie¬ 
tà, dispongo di più di 200 titoli. 

Liviano Vitali - Via Firenze 29/3 - 41035 Massa 
Finalese (MO) - Tel. 0535 99700. 

Spectrum cambio/vendo software e giochi ori¬ 
ginali inglesi con altri possessori Spectrum di 
Verona e provincia. 

Niccolò Arrigoni - Lungadige Panvinio 35 - 
37121 VR - Tel. 045/23583. 

Vendo ZX81 + ZX Printer a L. 250.000. Inoltre 
TI994A + registratore Sanyo + Joystick + sss: 
chess, invader , othello, personal record kee- 
ping, video games 1 tutto a L. 450.000. 
Massimo Serio - Via Campanile 2 tr pr. 21 /B - 
80126 NA - Tel. 081/7267438. ___ 

Vendo o cambio più di 150 programmi originali 
inglesi per ZX Spectrum 16/48K. 
prezzo medio 16K L. 5000, 48K L. 8000. Sconti 
per grossi acquisti. Inviare proprie liste per 
scambi. 

Paolo Siamonetta - Via A. Colombo 30 - 21012 
Cassano Magnago (VA) - Tel. 0331/201927. 

Vendo programmi per ZX81 su listato a partire 
da L.2000. Inoltre scambio programmi per VIC 
20. Chi fosse interessato telefoni (ore pasti) a: 
Marco Nascè -Via Volturno 3 - 30174 Mestre 
(VE) - Tel. 980968. 

ZX Spectrum 16/48K, vendo cassette (TDK) 
registrate: con 4 giochi a scelta L. 15.000, con 2 
giochi a scelta L. 10.000. Inviare francobollo per 
catalogo. 

Giorgio Favaro - Via Lamarmora 39 - 10093 
Collegno (TO) - Tel. 011/7800974. 

Vendo circa 200 programmi per Spectrum a 
prezzi bassi. Molte novità inglesi. Elenco gratis 
a richiesta. 

Stefano calcaterra - Via Marconi 34/2 - 40122 
Bologna - Tel. 051/521063. 

Spectrum software utilizzabile didatticamente 
cerco e scambio scrivere per accordi. 
Maurizio Monaldi - Via V.Montiglio 7 - 00168 
Roma - Tel. 06/6283901. 

Vendo cassette per ZX Spectrum. Costo da L. 
5000 a L.10.000 (circa). 

Ogni cassetta contiene minimo 7 programmi tra 
giochi e Utilities. Telefonare o scrivere a: 
Massimo De Lorenzis - Via monti Tiburtini 510 - 
00157 Roma - Tei. 06/4505925. 

Per Spectrum Sinclair vendo a sole L. 10.000 
cassette con 6 programmi a scelta duplicati 
direttamente da computer e provati. Richiedere 
elenco gratuito scrivendo o telefonando a: 
Daviae Di Dio - Via C. Alberto 46/a - 80045 
Pompei (NA) - Tel. 081 /8635055, 

Spectrum software. A chi è in grado di fornirmi, 
su nastro, i programmi di questa rivista (od al¬ 
tre) offro del software a scelta tra quello dispo¬ 
nibile nel mio elenco. Scrivere per accordi. 
Maurizio Monaldi - Via V. Montiglio 7 - 00168 
Roma - 06/6283901. 


Tutti i migliori programmi Spectrum, libri, bol¬ 
lettino, adesivi, corsi L/M consulenza e tanti 
amici. Questo è il “gruppo utilizzatori computer 
Sinclair”. Scriveteci allegando bollo, diventere¬ 
mo amici. 

Roberto Chimenti - Via L. Rizzo 18 - 80124 
Napoli - Tel. 081/617368. 

Scambio, alla pari, programmi 16/48K per ZX 
Spectrum Disposto anche a comperare man¬ 
datemi vostra lista. 

Francesco Rusca - Via Volturno 14 - 43100 
Parma - Tel. 0521/54600. 

Cambio programmi di ogni tipo per lo ZX Spec¬ 
trum. Inviare la vostra lista-risposta assicurata. 
Risponderò con la mia lista: più di 300 titoli. 
Igor Bonat - Via Ressman 6 - 43141 Trieste - 
Tel. 040/768718. 

Computer ZX81 con espansione di memoria da 
16K, registratore a cassette, manuali inglese ed 
italiano, software, il tutto vendo a L. 180.000. 
Alberico Di Profio - Via Sirtori 16 -10148 Torino 
- Tel. 298458. 

Scambio programmi per ZX Spectrum. Inviate¬ 
mi la vostra lista ed vi invierò la mia. 

Marcello Pellacani - Via G. Guarini 41 - 41100 
Modena - Tel. 243649. 

Vendo ZX Spectrum 48K + alimentatore rebit + 
cavetti + manuale italiano e inglese + libro 77 
programmi 4- cassetta dimostrativa e 5 giochi a 
L. 450.000. 

Luca Paladini - Via G. Prina 24 - 00139 Roma - 
Tel 06/8188579. 

Disponendo di una vasta gamma di software 
per ZX Spectrum vendo cassette 10 programmi 
a L. 15.000. Specificare i giochi e utilità deside¬ 
rate. Spedizione entro 24 ore. Telefonare ore 
pasti. 

Fabio D'Amico - Via 5 giornate 14 - 20025 
Legnano (MI) - Tel. 0331/595581. 

Scambio software per ZX Spectrum Inviare 
elenco, rapida risposta, 

Stefano Orlando - Via Petrarca 153 - 20099 
Sesto S. Giovanni (MI) - Tel. 02/2405323. 

Programmi per Spectrum circa 500 vendo a 
bassissimo prezzo. Vi prego inviare L. 500 in 
francobolli per ricevere le liste. 

Loredani Raponi - Via Alberto da Giussano 5 - 
00176 Roma. 

Cambio programmi per ZX Spectrum. Oltre 350 
titoli a disposizione. Inviare lista e L. 500 per 
ricevere dettagliate istruzioni. Scrivere solo se 
avete almeno 80 titoli a disposizione. 

Luigi Ballestin - Via M. della Libertà 367/11 - 
18038 Sanremo (IM). 

Vendo per ZX Spectrum 48K 21 favolosi pro¬ 
grammi in LM a L. 50.000. A chi li acquista tutti 4 
in omaggio. Per la lista scrivere o telefonare 
(dopo le 20). 

Massimo Donati - Via Roma 22 - 56045 Poma¬ 
rance (PI) - Tel. 0588/ 65322. 

Cerco programmi per ZX81 Sinclair da 1K. In¬ 
viare lista con prezzi ragionevoli. 

Guido Mantelli - C.so De Gasperi 43 - 12100 
Cuneo._ 

Vendo ZX81 + esp. 16K + 2 volumi + 3 cassette 
a L. 180.000. Vendo inoltre programmi per 
Spectrum. 

Flavio Bernadotti - Via Roma 10 - 98050 Malfa 
(ME). 


Vendo XEROX 820 II. 64K Z80A 4MHz, 2 dischi 
8“ SS/DD, 960K, con stampante OKI 93 L. 
6.500.000 (fatturatili). 

Telefonare a Paolo - Tel. 02/2154926. 

Wanted Cercasi persone che abbiano svilup¬ 
pato buoni programmi per VIC 20 e C 64. Possi¬ 
bilità di acquisto. Il software deve essere origi¬ 
nale. 

Renato - Tel. 02/8355488 - ore pasti. 

Ingegnere specialista SW per ingegneria civile 
per CBM 64, Texas TI 99/4A, Olivetti, vende 
programmi calcolo su nastro/disco con infor¬ 
mazioni dettagliate e listino completo di SW 
gestionale. 

Mario Siviero - Via Belvedere 101 - 80127 Na¬ 
poli - Tel. 081 /640854. 

Vendo cassette vergini C-10 con nastro spe¬ 
ciale per computer L. 1.500 + SS contrassegno 
e diskette 5" 1 /4 per CBM-64 L. 5.000 cad. + SS 
contrassegno. 

Lorenzo Fontani - Via Cavour 33 - 53100 Siena 

- Tel. 0577/284229. 

Acquisto le seguenti riviste: Bit (dal N.1 al 
N.45), MC (1-26), Personal Software (1-13), ri¬ 
viste estere e manuali-libri per l'uso e la pro¬ 
grammazione dei personal, in particolare per 
l’Apple II. 

Fonsato - Via Verzuolo 49 - 10139 Torino. 

Vendo software di qualsiasi marca. 

Roberto Ponzoni - Tel. 02/8266688 

Cambio/vendo software per Sharp MZ80B 

(ing. civile, data base, word processing, utility). 
Contatto anche possessori di Sharp MZ80K. 
Converto i programmi per entrambe le macchi¬ 
ne con apposita routine. 

Stefano Lazzaro - Via Monte Sabotino 2 - 
35141 Padova - Tel. 049/22675. 

Eseguo perfette traduzioni di qualsiasi testo 
inglese (manuali, riviste, articoli, programmi, 
ecc.). Consegne veloci e prezzi competitivi. Te¬ 
lefonare dopo le ore 17. 

Angela Valvo - Via Volontari del Sangue 6 - 
20092 Cinisello Balsamo (MI) - Tel. 
02/6124138. _ 

Sharp PCI 500 + stampante + esp. 5K L. 
600.000. Cartucce VIC 20: Monitor Program- 
mer’s Aid + superesp. grafica L. 30.000 cd. 
Cabinet di espansione con alimentatore auto¬ 
nomo L. 150.000. 

Pocket Group - Club utenti Commodore Puglia 

- Via Amoruso 34 - 70124 Bari - Tel. 
080/510322. 

Utenti Shine computer cerco per scambio pro¬ 
grammi ed esperienze. Cerco programma per 
RTTY CW per lo Shine Scrivere o telefonare 
dopo le ore 20. 

Emanuele Abbate - Via Garibaldi 129 - 97016 
Pozzallo (RG) - Tel. 0932/953739. 

Sharp 700 e Sega PC 3000. Cerchiamo pro¬ 
grammi di ogni genere, scambiamo, acquistia¬ 
mo. In preparazione un notiziario “Tutto Sharp” 
e "Tutto Sega PC 3000”. Scriveteci, 
Francomputer Club - Franco Gonzato - C.so 
Fogazzaro 174/139 - 36100 Vicenza - Tel. 
0444/42678. 
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Annata 1983 “Personal Software” cerco max 
L. 15.000 o numeri sciolti metà prezzo. 

Andrea Pini - Via F. Primaticcio 22 - 40129 
Bologna - Tel. C51/362400 solo 8.30-9.00 di 
mattina, feriali. 

Acquisterei programmi interessanti di qualsia¬ 
si genere per IBM sistema 23. Chi ne fosse in 
possesso scriva a: 

Luigi Sellaroli - Via A. Garibaldi 30 - 04010 
Giulianelio di Cori (LT). 

Sharp 700 MZ. È funzionante il “Club Sharp". 

Nessuna tassa d’iscrizione. Solo amicizia, on¬ 
de conoscere, sapere, fare reciprocamente 
con scambi. Disponibili per tutti già 200 pro¬ 
grammi. Mandaci i tuoi. 

Fanco Gonzato - C so Fogazzaro 174 - 36100 
Vicenza - Tel. 0444/42678. 

Vendo Software per Olivetti M20: sistemi 
esperti (intelligenza artificiale), giochi, gestio¬ 
nale. word processing, software tecnico, grafi¬ 
ca interattiva. Richiedete l’elenco gratis. Prezzi 
bassi. 

Elsa Ochetta - Via Beldì 19 - 28068 Romentino 
(NO)._ 

Vendo Casio FP 1100, 112K 48 ROM, monitor 
colori e 2 software autodidattici, unità a dischi 
320x320 (notevole l’espansione e la grafica) 
usato pochissimo. 

Ruggero Gualtieri - Via Luigi Sacco 3 - 20146 
Milano - Tel. 02/437619. 

Stampante nuovissima in imballo originale con 
pacco carta, vendo solo L. 450.000 tratt. Model¬ 
lo Seikosha GP80N, 80 col. grafica. Ottima per 
Home computer. 

Antonello Stanzione - Via Duca Guglielmo 13 - 
84100 Salerno - Tel. 089/392694. 

Cerco possessori Oric 1 per scambio program¬ 
mi su cassette e listati. Chi ne fosse interessato 
scriva o telefoni dopo le ore 19. 

Giacomo Buratti - Via Metastasio 4 - 20098San 
Giuliano Milanese (MI) - Tel. 02/9844350. 

Cambio bellissimi programmi in BASIC e in 
linguaggio macchina con numeri arretrati di 
Personal Software. Possiedo programmi di tutti 
i generi. Scrivere o telefonare solo Lunedi dalle 
14.30 alle 15.00. 

Alessandro Poletti - P.zza Gino Lucetti 2 - 
54031 Avenza (MC) - Tel. 53664. 

Vendo programma totocalcio per sviluppare 
sistemi integrali o ridotti con limitazioni sulle 
colonne e in più un programma per il controllo 
automatico dei punti. Tutto a L. 20.000. 
Riccardo Campo - Tel. 011/252543 - Torino. 

Vendo e/o cambio programmi in BASIC o 
CP/M per personal computer Alphatronic P2. 
Per accordi telefonare ore serali. 

Amedeo Di Salvatore - Tel. 0775/857479 - Pro¬ 
sinone. 

Per compravendita (su base nazionale) softwa¬ 
re. Scrivere dettagliando offerte e/o richieste. 
Materiale non richiesto sarà cestinato. 

Studio Veltri - Via D’Antona 20 - 80131 Napoli. 


Cambio/vendo monitor a colori Hantarex mai 
usato : CT9001SR14” a L. 850.000 e scambio 
programmi per Apple II. 

Tiziano Maffei - Il Podere Loc. S. Giovanni - 
57037 Portoferraio (LI) - Tel. 0565/916566. 

Vendo due bellissimi giochi per Atari 400-800 
su cassetta: "Black Hole’’e “Battaglia aereona¬ 
vale’’, 13K di memoria. Una cassetta con due 
giochi L. 60.000. Cerco Ataristi per scambi pro¬ 
grammi ed idee. 

Cristiano Fanucci - Via Spartaco 29 - 40138 
Bologna - Tel. 051/533343. 

Vendo videogame Atari VCS 2600 quasi nuovo, 
in ottimo stato, piùcassetteSTARMASTER (Ac- 
tivision), Breakout e combat a L. 200.000. 
Cristoforo Grillo - Via G. Zanella 19 - 35020 
Albignasego (PD) - Tel. 049/711351. 

A Torino è nata l’associazione CEDAT Amici 
del computer unitevi per scambio idee e pro¬ 
grammi di tutte le marche. Per informazioni ri¬ 
volgersi in Via Susa 14 - Torino - Tel. 
011/7492827. 

Cerco disperatamente modulo SSS TI Exten- 
ded BASIC. Telefonare dalle ore 12 alle ore 16. 
Sergio Viganò - Via C. Gabriele 3 - 20050 Cam- 
parada (MI) - Tel. 039/6980357. 

Vendo Atari computer sistem + seguenti cas¬ 
sette: Pole Position, Tennis, Basketball, Bow¬ 
ling, 3D Tic Tac Toe, Soccer’s Apprentice. 
Comprato tutto Natale 83. Prezzo L. 150.000. 
Telefonare ore pasti. 

Nicola Neri - Tel. 0744/418114 - Terni. 


Cerco listati programmi per Olivetti M20 di gio¬ 
chi o grafica. Telefonare ore pomeridiane o 
inviare per posta. Disposto anche a comperare 
i listati. 

Antonio Moro - Via A. De Gasperi 56 - 36022 
Cassola (VI) - Tel. 0424/83027. 

Compro solo se vera occasione programmi in 
blocco di ogni tipo. Inviatemi subito la vostra 
lista. Non perdete questa occasione. 

Piero Zambrini - Via Ridolfino Venuti 14 - 00162 
Roma - Tel. 06/8320808. 

Offro anche separatamente videogioco Atari 
CX 2600 tripli comandi 5 cassette a L.320.000. 
Telefonare dopo le 20.00. 

Davide Carancini - C.so Laghi 81/77 - 10090 
Buttigliera A. (TO) - Tel. 011/9322242. 

Vendo progr. per PC IBM “gestionec/c”inedi- 
to, elaborato per una media azienda, fornisce 
estr. c., s. contabile, valuta, S.F.B.,interessi, ecc. 
L. 100.000 su dischetto con aiuto personaliz- 
zaz. 

Dr. Alessandro Faenzi - Via Kennedy 5 - 06083 
Bastia Umbra (PG) - Tel. 075/8002227. 

Vendo oscilloscopio “doppia traccia” marca 
Triomod. CS/1554 con accessori e manuale L. 
600.000 Vendo corso TV scuola “Radio Elet¬ 
tra” solo parte pratica per costruzione TV b/n 
12” ancora imballato L. 100.000. Dispongo altri 
strumenti per bassa frequenza. 

Giorgio Invernizzi - Via Pastonchi 5 - 22063 
Cantù (CO) - Tel.707162. 

Vendo Atari 400 + registratore inoltre vendo, 
anche separatamente, molti programmi prove¬ 
nienti dall’America. 

Luigi Stadio - Via M. Schipa 61 -80122 Napoli - 
Tel. 081 /664626. 


Cerco, cambio vendo software vario per Sharp 
NZ80A. Inviare lista o scrivere a: 

Davide Ardizzola c/o “La Base” - Via Roma - 
18016 S. Bartolomeo (IM) - Tel. 0183/401830. 

Vendo Atari VCS L. 170.000 intrattabili. 13 cas¬ 
sette in blocco a L. 450.000 oppure 3/4 a prez¬ 
zo originale. 

Francesco Di Pede - Titignano 9 - 56023 Titi- 
gnano (PI) - Tel. 050/7704460. _ 

Compro espansione 16K RAM e cartucciagio- 
co scacchi. Possibilmente zona nord- 
Sardegna. 

Maurizio lannucci - Via E. Vanoni 5 - 07041 
Alghero (SS). 

Cerco TRS-80ntisti preferibilmente nella zona 
di Catania per scambio informazioni e idee. 
Scrivete risponderò a tutti. 

Angelo Castorina - P.zza Trento 2 - 95128 Ca¬ 
tania - Tel. 095/446506. 

Possedete la scheda grafica di “Nuova elettro¬ 
nica”, volete entrare nel mondo del CP/M ? 
Vendo Epron e relative modifiche con dischetto 
applicativo. 

Antonio Romano - Via delle Conce 32r - 50122 
Firenze - Tel. 055/663859. 

Vendo mlcrocomputer Z-80 di “Nuova elettro¬ 
nica” con floppy disk drive e monitor nec a 
fosfori verdi a 48K di RAM, BASIC/assembler- 
disassembler con oltre 800K di programmi ap¬ 
plicativi vari a L. 1.450.000 tratt. 

Dario Melpignano - V.le Corsica 3 - 20133 Mi¬ 
lano - Tel. 02/720553. 

Vendo Acorn Atom perfetto poco usato espan¬ 
so 12 + 16K L. 450.000. Regalo manuale italia¬ 
no (ed. muzzi) e programmi originali giochi/uti¬ 
lità oppure cambio con unità dischi 
1541XCBM64. 

Roberto Fermo - Via F. Crispi 26-80121 Napoli 
- Tel. 081/667177._ 

Vendo p. computer FP II completo di: tastiera 
esterna, interfaccia per 2 drive, drive slim line, 
registratore, molte cassette gioco e utility su 
disco, joystick e tutti i manuali, garanzia intatta 
prezzo L. 1.500.000. 

Giuseppe Culmone - Via 2/F 11 - 90011 Alca- 
mo (TP) - Tel. 0924/29044 - 29158._ 

Vendo computer NE schede LX 392 L. 80.000, 
LX386 L. 150.000, LX 382 L. 80.000, monitor 
fosfori verdi 12” L. 20.000. 

Renato Severin - Via Casaria 23 - 31030 Bian- 
cade (TV) - Tel. 0422/790136. 

Vendo interfaccia joystick “Tecnolek” pro¬ 
grammabile, joystick anatomico con 2 pulsanti 
sparo e cassetta dimostrativa originale nuovo 
di pacca a L. 105.000. 

Alan Sartirani - P.zza Libertà 3 - 24044 Dalmine 
(BG) - Tel. 562380. 

Vendo corso completo di informatica dell'Are- 
xa comprendente anche corso ad alto livello di 
Cobol e BASIC. Vendo anche PB 100 + espan. 
1 Kb + interfaccia registratore: tutto con 3 mesi 
di vita. 

Luca Beccati - Via Bandiera 14 - 44034 Coppa- 
ro (FE) - Tel. 0532/862022. 

Desideriamo formare un computer club (Com¬ 
modore - Sinclair) per scambio software chi 
volesse entrarne a far parte scriva a questo 
indirizzo e riceverà chiarimenti via posta. 
Matteo Linares - Via R. Pilo 4 - 91025 Marsala - 
Tel. 0923/959922. 
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OFFERTISSIMA - EXELCO - 


La EXELCO vi propone due vantaggiosissime combinazioni COMMODORE 

Affrettatevi è un’OFFERTA irrepetibile!!! 



n° 1 COMMODORE C64 
n° 1 Registratore «MAXTRON» 
n° 1 Libro «C64 EXPOSED» 
n° 1 Libro «Impariamo 

ad usare il personal computer 
n° 1 Cassetta Software 

«Garden Wars» della JCE 

Totale 


A SOLE L 750.000 V> 

IVA INCLUSA 


L. 699.500 
L. 82.000 
L. 24.000 

L. 25.000 

L. 20.000 


Combinazione n° 2 


n° 1 COMMODORE VIC 20 L. 149.000 

n° 1 JOYSTIC «TRIGA» L. 31.000 

n° 1 Libro «Impariamo 

ad usare il personal computer L. 25.000 

n° 1 Cassetta Software 

«ADVENTURELAND» L. 49.000 

n° 1 Cassetta Software 

«RIDE ON FORT KNOX» L. 49.000 

Totale L. 

/I A SOLE L 258.000 

IVA INCLUSA J.V 


-- 

Descrizione 

Q.tè 

Prezzo 

unitario 

Prezzo 

Totale 

COMBINAZIONE 1: 

n° 1 COMMODORE C64 
n° 1 Registratore «MAXTRON» 
n° 1 Libro «C64 EXPOSED» 
n° 1 Libro «Impariomo 
od usare il personal computer» 
n° 1 Cossetta Software 
«Gorden Wars» JCE 


L. 750.000 


COMBINAZIONE 2: 

n° 1 COMMODRE VIC 20 
n° 1 JOYSTIC «TRIGA- 
n° I Libro «Impariamo 

od usare il personol computer» 
n° 1 Cassetta Software 
«ADVENTURELAND» 
n a 1 Cassetto Software 

«RIDE ON FORT KNOX» 


L. 258.000 



Desidero ricevere il materiale indicato nella tabella, a mezzo pacco postale 
contro assegno, al seguente indirizzo: 


Nome 


Cognome 
Via 


Città I I I I I I 

Data I 1 1 1 I 1 

Desidero ricevere la fattura Si 


C.A.P. 


NO 


Partita I.V.A. o, per i privati Codice Fiscale 



: m 







PAGAMENTO: 

A) Anticipato, mediante assegno circolare o vaglia postale per l'importo totale 
- dell'ordinazione. 

8) Contro assegno, in questo caso, è indispensabile versare l'acconto di Lire 50.000 
mediante assegno circolare o vaglia postale. Il saldo sarà regolato contro assegno. 
AGGIUNGERE: L. 5.000 per contributo fisso. I prezzi sono comprensivi di I.V.A. 


'EXELCO 


Via G. Verdi, 23/25 

20095 - CUSANO MI LANINO - Milano 


NON PERDETE QUESTE OCCASIONI!!! 


SI ACCETTANO FOTOCOPIE DI QUESTO MODULO D’ORDINE 
























































































































































ONE HUNDRED STEPS TO LONDON 


COflCOfc/O 

per tatti i SINCLAIRisti 



COME FUNZIONA IL CONCORSO? 

Prime di entrare nel dettaglio del Regolamento che per altro consigliamo di 
leggere attentamente, descriviamo il meccanismo di questo strabiliante con¬ 
corso, organizzato dalla J.C.E. 

Ci preme innanzitutto chiarire che la Giuria è il pubblico, ossia i lettori di 
Sperimentare con l’Elettronica e il Computer, e ciò sottolinea la filosofia di 
dialogo e di fiducia, in cui la redazione non si pone, come in altri casi spesso 
avviene, nella presuntuosa posizione di infallibilità! 

Ogni mese a partire dal numero di Giugno 1984, la rivista pubblicherà i quat¬ 
tro migliori programmi pervenuti in redazione, e giudicati dalla nostra com¬ 
missione tecnica. I lettori troveranno quindi i listati di questi quattro program¬ 
mi ed un tagliando sul quale scriveranno il titolo del programma che sarà 
parso più meritevole, per qualsiasi motivo. 

Fra tutti i lettori che avranno inviato il tagliando sarà estratto, ogni mese, un 
computer Sinclair Spectrum 16 K!l! 

Questa procedura si ripeterà per sei mesi, quindi sui numeri di Giugno, 
Luglio/Agosto, Settembre, Ottobre, Novembre e Dicembre, quindi ogni mese 
saranno pubblicati quattro programmi, il tagliando da spedire e fra i tagliandi 
sarà estratto uno Spectrum 16 K. 

Alla fine di questa prima fase usciranno, dunque sei programmi classificati al 
primo posto in ciascuna delle sei “batterie”. 

Noi li sottoporremo al giudizio dei lettori, pubblicando sul numero di Marzo 
1985 un nuovo tagliando sul quale andranno indicati, in ordine di preferenza, 
tutti i sei programmi. I primi tre saranno premiati, e fra i lettori sarà estratto di 
nuovo uno Spectrum 16 K. 

Mica male, eh, che ne dite? 

Il regolamento è riportato sulla rivista “Sperimentare con l’Elettronica e il 
Computer”. 


1° CONCORSO 
SINCLUB 1984-85 

I Sinclair Club e i Sinclairisti sono spes¬ 
so vere e proprie fonti di idee per il mi¬ 
glior impiego del nostro beneamato 
spectrum; è un peccato che la maggior 
parte di queste idee restino nel casset¬ 
to, o nel migliore dei casi vengano resi 
noti alla ristretta cerchia degli amici. 

Uno degli scopi del Sinclub è proprio 
quello di dare le ali a chi le merita. Da 
qui l'idea di un concorso a premi, orga¬ 
nizzato dalla J.C.E., aperto a tutti. Il 
concorso inizierà il 1° Aprile e termi¬ 
nerà Il 31 Dicembre 1984; tutti 
potranno inviare alla redazione di 
Sperimentare con l'Elettronica e 
il Computer entro il suddetto perio¬ 
do loro programmi più interessanti ed 
originali. 

I programmi devono essere me¬ 
morizzati su cassetta e devono esse¬ 
re spediti alla redazione di Sperimen¬ 
tare con l’Elettronica e il Computer al 
seguente indirizzo: 

J.C.E. - CONCORSO SINCLUB 
VIA DEI LAVORATORI, 124 
20092 CINISELLO BALSAMO (MI) 
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